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DÄTABOX 


Das ist die Software 
zur PC International 
jeden Monat neu 

DATABOX: 

- mehr als der übliche 
Software-Service 


bringt ergänzend 
sämtliche Listings 
der jeweiligen 


SCORE: 

BMIIIS: 

HBt: 

LEHEL: 


SUPRA-SOFT 


Durchfliegen Sie verschiedene Städte und vernichten 
die Angreifer: Mit X-Force 

Zeitschrift und alle Programmbeispiele auf Kassette 
oder auf 3-Zoll-Diskette. 

Die Programme sind, soweit systembedingt möglich, 
auf allen drei CPC-Modellen lauffähig. Einzelheiten 
entnehmen Sie bitte der nebenstehenden Aufstellung. 

Soweit die Programme nicht Bestandteil einer Serie 
sind, befinden sich alle Programme als »ready to run« 
auf der DATABOX. 

erscheint jeden Monat und trägt das Titelbild des 
gleichzeitig erscheinenden Heftes. 

Der Datenträger zur PC International enthält außerdem 
jedesmal ein zusätzliches Bonusprogramm, das nicht im 
Heft abgedruckt ist. 


Sie 


Einzelbezugspreise für DATABOX: 

3-Zoll-Diskette 






Inland: 


Ausland: 


Einzelpreis 

24,- DM 

Einzelpreis 

24,- DM 

zzgl. Versand kosten 

4,- DM 

zzgl. Versandkosten 

6,— DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


Kassette 


Inland: 


Ausland: 


Einzelpreis 

14,- DM 

Einzelpreis 

14,- DM 

zzgl. Versandkosten 

4,- DM 

zzgl. Versandkosten 

6,- DM 

Endpreis 

18,- DM 

Endpreis 

20,- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich. 

Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag • Postfach 250 • 3440 Eschwege 
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Editorial—| 


Märchenstunde 


Einst stand ein großes Haus in einer weiten Öde, in dem viele 
eifrige Menschen bunte Programme zu Diskette brachten. Man 
verdiente viele Taler daran, bis die schwarzen Kopierräuber 
einen großen Teil des Talerregens in die eigenen Schürzen 
umleiteten. Nun ging gerade der Schwarze Tod um, und ein 
listiger Bursche aus dem großen Haus in der weiten Öde hatte 
einen Einfall. Warum nicht einfach sagen, daß die Werke 
unserer Geistesblitze verseucht seien mit jener tödlichen 
Epidemie ? 

Gesagt, getan. Die Kunde ging ins Land, und ein paar Monde 
ward Angst und Schrecken unter den Besitzern dieser Werke. 
Doch kam der Tag, an dem der Schwindel aufzufliegen drohte. 
Auch unser listiger Bursche bekam reichlich Wind von dieser 
Geschichte und kleidete sich in einen düstren Umhang , um die 
finsteren Gassen der Stadt aufzusuchen. 

Bald schon wurde er fündig. Eine Gestalt in den Schatten der 
verfallenen Hütteneingänge bekam einige Taler zugesteckt und 
verschwand, um die bösen Absichten des Burschen in die Tat 
umzusetzen. Er schleuste sich in die Reihen der Kopierräuber 
ein und verseuchte die Werke mit dem Schwarzen Tod. Als der 
erste Tote bedauert wurde, wollte keiner ihn verteidigen, da er 
ja Unrecht getan hatte; doch hatte er wirklich, oder war er 
einem großen Schwindel des listigen Burschen aufgesessen? 

Heute wäre solche Schandtat undenkbar, oder? In jedem Falle 
würde die Pest schneller als vermutet auf das große Haus in 
der weiten Öde zugreifen. 

Ihr 

Joadft* $*0.' 

Joachim Freiburg 


6/7’90 PC 3 













INHALT 


BERICHTE: 


Von Not und Tugend 10 

- oder Wie Erfindungen in der DDR entstehen 

In eigener Sache 12 

- Die Redaktion bittet um Ihr Ohr 

Ein neues Betriebssystem? 16 

- Ersetzt ZCPR CP/M? 

Der CPC der Zukunft 18 


- Vorstellungen über zukünftige CPC-Modelle 

SERVICE: 


15 AMS-Line 

- Neues von der Firma Amstrad 

KURS: 


Beim CEUS, eine CPC-Benutzeroberfläche 20 

- Eine Benutzeroberfläche auf dem CPC 
selbst programmiert 

Einen Moment mal! 22 

- Gesteuerte Unterbrechungen auf dem CPC. 

Wir zeigen Ihnen, wie Interrupts eingesetzt 
werden. 



Welche Ideen in der Not entstehen, können Sie in unserem DDR-Arti¬ 
kel nachlesen 

S. 10 


PROGRAMME: 


30 

Umform-Künstler 

- Mathematische Formeln sammeln und um- 


stellen lassen 

32 

Biomorphe 

- Eine sehenswerte Variante der Erzeugung 


fraktaler Grafiken 

35 

Schlangenhaft 

- Helfen Sie der Schlange bei der Futtersuche 

36 

Kleb Dir einen 

- Ein professioneller Button-Designer zum 


Abtippen 

37 

Listingteil 

51 

Slot-Machine 

- Ankündigung eines Wahnsinns: Nonplusul- 


tra der Spielautomatensimulation 

52 

Mit Köpfchen, Schläger und Kanonen 

- Eine extravagante Breakout-Version 


HARDWARE: 

Joystick-Bypass 29 

- Wir bauen uns einen zweiten 

Joystick-Anschluß 

TIPS & TRICKS: 

86 

100,- DM für IkByte 

- Super-Programme zum schnellen Abtippen 

90 

Code-Salat 

- Profimat-Daten werden ASCII-Dateien 

92 

Datum 

- Eine Hilfe für dBase II 

94 

Mode-Change 

- Farbige Bilder werden in Graustufen 


umgesetzt 



Der CPC-Laptop: 
Traum oder 
Realität? 


S. 18 




□□□□£ i EU! !□□□%3 1 EDEUBS 


Der Koalier für den CPC: Break Thru 


S. 52 


4 PC 6/7’90 


























Juni/Juli ’90 


Wir geben Tips zu 
Small-C 


S.98 



SOFTWARE REVIEWS: 

8 Spiele 

- Scramble Spirits 

- Black Tiger 

- Wild Streets 


PCW: 


Startdiskette einmal anders 95 

- Was würden Sie davon halten, wenn vor 
dem Start Ihres Programms ein kleines Ti¬ 
telbild erscheint? Wir zeigen Ihnen, wie Sie 
dies bewerkstelligen können. 

Schalten und walten 96 

Kfz-Kostenberechnung 97 

- Wollen Sie wissen, wie teuer Ihr Auto pro 
Monat oder im Jahr ist? Wir können Ihnen 
ein Programm anbieten, welches dies be¬ 
rechnet. 



Wir weihen Sie in die Gerätetreiber-Programmierung ein 


S. 106 


Systemtuning 98 

- (Fast) jeder kennt ihn, und (fast) jeder, der in 
C programmiert, benutzt ihn. Die Rede ist 
von dem Small-C-Compiler. Wir stellen Ih¬ 
nen einige Routinen zur Verbesserung vor. 

24-Pin-Printer-Driver-Disc 102 

- LocoScript wird erwachsen. Die 24-Pin- 
Printer-Driver-Disk ermöglicht es, nun auch 
Ihren 24-Nadel-Drucker voll auszunutzen. 


PC: 


104 

Mit Käsestück und Peitsche (2) 

- Mausprogrammierung für Profis 

106 

Schaltstation PC 

- Gerätetreiber unter MS-DOS 

110 

MS-DOS, die ersten Berührungen 

- Externe MS-DOS-Befehle 

113 

Star Writer 5.0 

- Textverarbeitung nicht nur für Heim¬ 
anwendung 

114 

Codename: Iceman 

- Sierra und kein Ende 

115 

Sim City 

- Unterhaltung par excellence 

116 

Harvard Graphics/Draw Partner 

- Klassiker mit Zusatz im Test 


Der PC-Hit: Planen 
und Bauen mit dem 
PC. Eine Review 
über Sim City 

S. 115 



RUBRIKEN: 


Editorial 

3 

Impressum 

3 

Aktuell 

6 

Leserbriefe 

26 

Händlerverzeichnis 

93 

Kleinanzeigen 

109 

Bücher 

117 

Inserentenverzeichnis 

118 

Vorschau 

118 


6/7’90 PC 5 


























I—Aktuell 


Arc+ jetzt in Deutschland 


Druckabbruch ohne Reset 



Wer kennt das nicht? Sie schrei¬ 
ben einen langen Text - ein lan¬ 
ges Programm — und wollen es 
ausdrucken. Genau in diesem 
Moment fällt Ihnen jedoch ein 
kleiner Schönheitsfehler auf, 
den Sie noch berichtigen möch¬ 
ten. Also: Drucker an, Drucker 
aus, Drucker an..., oder so lan¬ 
ge warten, bis der Computer fer¬ 
tiggedruckt hat. Der 'Dummy 
Adapter' der Firma Wiesemann 
& Theis schafft da Abhilfe. Ein 
einfacher Knopfdruck veranlaßt 


den Adapter, welcher zwischen 
den Drucker und das vorhande¬ 
ne Druckerkabel gesteckt wird, 
dazu, alle Daten ins Leere zu 
schicken. Somit sparen Sie eine 
Menge Papier und je nach 
Drucker auch eine ganze Menge 
Zeit. 

Preis: 68,- DM 
Info: 

Wiesemann & Theis GmbH, 
Winchenbacherstraße 3b, 

5600 Wuppertal 2 


DMP4000 ade! 


Die in Frankreich schon weithin 
bekannte Architektursoftware 
Arc-F wird es jetzt auch in 
Deutschland geben. Lauffähig 
ist dieses Mammut-Programm 
auf allen PC/AT-Rechnern mit 
einem mathematischen Copro¬ 
zessor (80287, 80387) sowie 
mindestens 640 kByte Haupt¬ 
speicher und MS-DOS oder PC¬ 
DOS ab der Version 3.30. Eine 
uneingeschränkte 3D-Visuali- 
sicrung, DXF und ASCII- 


Mit der Version 6 der PC-Tools 
wird dem Anwender eine noch 
leistungsstarkere Programm¬ 
sammlung zur Verfügung ge¬ 
stellt. Mehr als 70 neue Features 
und Verbesserungen gegenüber 
der Vorgängerversion dürften 
dies sicherlich beweisen. Zu den 
wichtigsten Neuerungen zählen 
eine automatisch laufende Disk¬ 
diagnose und Wiederherstellung 
selbst vermeintlich defekter Da¬ 
tenträger, Bandunterstützung 
für das Backup-Programm, die 


Schnittstellen sowie die pro¬ 
blemlose Anbindung von AVA- 
Programmen machen diese 
Software zu einem idealen Ar¬ 
beitsmittel für Architektur¬ 
büros. 

Preis: 16500,- plus MwSt. 
Info: 

cadresys s.r.l, 

16, Route de Longwy, 

L-8080 Bertrangc/Helfenter- 
brück, Luxembourg 


Möglichkeit, Telefaxe zu ver¬ 
senden und auch zu empfangen, 
eine vom Anwender zu bestim¬ 
mende Oberflächendarstellung 
und über 30 verschiedene Dar¬ 
stellungsmöglichkeiten von Ap¬ 
plikationsdaten. 

Preis: stand bei Redaktions¬ 
schluß noch nicht fest 

Info: 

H+BEDV, 

Olgastraße 4, 

7992 Tettnang 1 


Wer noch mit dem Gedanken 
spielt, sich einen Amstrad 
DMP-4000-Drucker zu kaufen, 
sollte dies in nächster Zeit tun, 


...können Sie der Neuerschei¬ 
nung 'Sidetricks - Problemlö¬ 
sungen mit Sidekick Plus' aus 
dem Hause Systema sicherlich 
in großer Menge entnehmen. 
Neben ausführlichen Beschrei¬ 
bungen zur effektiven Arbeit mit 
Sidekick enthält das Buch eine 
Diskette mit Zusatzprogram¬ 
men. die Sidekick unter ande¬ 
rem zur Erzeugung von Busi- 


Das Programm TC!Power, eine 
Emulationssoftware für Expan- 
ded Memory, wurde bisher im¬ 
mer mit deutschem Handbuch, 
jedoch mit englischer Benutzer¬ 
oberfläche ausgeliefert. Jetzt hat 
man sich entschieden, das Pro¬ 
gramm in einer komplett deut¬ 
schen Version anzubieten. 


da der Vertrieb dieses Druckers 
nach Aussage der Firma Am¬ 
strad eingestellt wurde. 


neßgrafiken und zum automati¬ 
schen Verschicken von Btx-, 
Telex-, Telefax- und Mailbox¬ 
nachrichten veranlassen. Eine 
Liste mit über hundert deut¬ 
schen Mailboxen ist ebenfalls 
enthalten. 

Preis: 59,- DM 

Info: Systema Verlag GmbH, 

Kreil lerstr. 156, 

8000 München 82 


Gegen eine geringe Bearbei¬ 
tungsgebühr können Besitzer 
der 'älteren’ jetzt ein Update auf 
die neue deutschsprachige Ver¬ 
sion erhalten. 

Info: 

Kienitz + Grabis, 

Schulstraße 18, 

8913 Schondorf. 


PC-Tools In Version 6 


Tricks für Sidekick Pius... 


TCIPower jetzt vollständig in Deutsch 


Aus Turbo wird Power 


Mehr Speicher für den PC? 


Seitdem die Firma Borland die 
Aufgabe des Turbo-BASIC-Pa- 
ketes bekanntgab, ist noch nicht 
viel Zeit vergangen, und schon 
präsentiert Kirschbaum für den 
deutschsprachigen Raum eine 
völlig überarbeitete Version die¬ 
ses Programms, welches jetzt 


unter dem Namen Power-BASIC 
vertrieben wird. Wichtigste 
Merkmale sind eine verbesserte 
Speicherverwaltung, niedrigere 
Übersetzungszeiten und eine 
vorzügliche On-Line-Hilfe. 

Preis: 285,- DM 
Info: Fachhandel 


Unter dem Namen EDOS ist ab 
sofort ein Programm erhältlich, 
welches Ihnen auf einem 
PC/XT/AT-kompatiblen Com¬ 
puter oberhalb der 640-kByte- 
Grenzc zusätzlich 96 kByte 
RAM zur Verfügung stellt. Vor¬ 


aussetzung ist jedoch ein EGA- 
oder VGA-Grafikadapter mit 
mindestens 256 kByte Video¬ 
speicher. 

Preis: 49,- DM 

Info: Fachhandel 
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Aktuell—| 


Neue Adreßverwaltung für MS-Windows 



Mit WINAV bietet die Nieder 
PC-KnowHow GmbH jetzt ein 
Programm zur Adreßverwaltung 
unter MS-Windows an. 

Über eine vorgegebene Maske 
lassen sich bis zu 99 999 Adres¬ 
sen eingeben und verwalten. 
Umfangreiche Im- und Export¬ 
funktionen ermöglichen einen 
Datenaustausch mit anderen po¬ 
pulären Programmen wie zum 
Beispiel Word, Wordstar oder 
dBase. Umfangreiche Druck¬ 
funktionen runden das Bild ab 
und ermöglichen es dem An¬ 


wender, alle gespeicherten 
Adressen zu Papier zu bringen. 
Im Gegensatz zur Profi-Version 
unterstützt die Bookware-Ver- 
sion keine Importfunktionen 
und erlaubt keinen Etiketten¬ 
druck, beim Export wird nur 
das ASCII-Format unterstützt. 
Preis: 

- Bookware-Version: 89,- DM 

— Profi-Version: 335,- DM 
Info: 

Nieder PC-KnowHow GmbH, 
Weinbergstraße 2, 

8207 Bad Endorf 


Interessante PD aus Frankreich 


LZEXE heißt ein neues Pro¬ 
gramm zum Komprimieren von 
EXE-Datcien. Im Gegensatz zu 
anderen Programmen wie zum 
Beispiel PKZIP oder LHARC 
bietet dieses Programm jedoch 
den Vorteil, daß 'gequetschte’ 
EXE-Dateien immer noch lauf- 
fällig bleiben. Erste Tests bei 
uns im Hause ergaben Platzer¬ 
sparnis von bis zu 49%, was die 
Existenz dieses Programms si¬ 
cherlich berechtigt. Der Kom¬ 
primiervorgang ist recht ein¬ 
fach. Die Eingabe von LZEXE 
< Dateiname. EXE> genügt, 
und das Programm wird ge¬ 


quetscht. Sollte es danach nicht 
lauten, kann die EXE-Datei ge¬ 
löscht und das Backup mit der 
Extension .OLD wieder in 
.EXE umbenannt werden. 
Ebenfalls auf der Diskette ent¬ 
halten ist ein Programm zum 
Umwandeln von COM- in EXE- 
Dateien sowie eine menügeführ¬ 
te Oberfläche (LZESHELL) für 
LZEXE. 

Preis: 16,— DM 

Info: 

Die Deutsche Software Biblio¬ 
thek, Alpenstraße 52, 

8038 Gröbenzell 


GEM-Hotline jetzt in München 


Die Digital Research GmbH hat 
ab sofort ihre GEM-Hotline 
nach München verlegt. Unter 
der Nummer (0 89) 91 01 954 


kann der GEM-Anwender direkt 
Fragen an den Hersteller 
richten. 


Literaturverwaltung 


Wer will nicht gerne Bescheid 
wissen, was wann wo einmal ge¬ 
standen hat? Wer hat sich zu be¬ 
stimmten Themengebieten reich¬ 
lich mit Literatur versorgt? 
Derjenige, der dies wirklich in¬ 
tensiv getan hat, wird sich si¬ 
cherlich bald nicht mehr durch 
alle Bücher und Zeitschriften 
hindurchfinden. Abhilfe schafft 
hier eine Literaturverwaltung 


wie zum Beispiel die von Mükra 
Datentechnik, welche eine or¬ 
dentliche und übersichtliche 
Verwaltung all Ihrer Daten mit 
dem Computer ermöglicht. 


Info: 

Mükra Daten-Technik, 
Schöneberger Straße 5, 
1000 Berlin 42 



Die Golden Image Mouse, eine 
optische Maus, gibt es speziell 
für die Amstrad-Computer. Bei 
einer Auflösung von 280 dpi 
kann man diese durchaus dem 
professionellen Bereich zuord¬ 


nen. Informationen hierüber er¬ 
halten Sie bei: 

Konyo Electronics Vertriebs 
GmbH, 

Auwiesenweg 3, 

8049 Unterbruck 


MS-DOS jetzt in Kyrillisch 


Als erstes komplettes Microsoft- 
Produkt wurde MS-DOS 4.01 in 
einer vollständigen kyrillischen 
Übersetzung mit einer speziel¬ 


len kyrillischen Bildschirmdar¬ 
stellung gezielt für den UdSSR- 
Markt entwickelt. 

Info: Fachhandel 


Tools für Windows 


Unter dem Namen 'Windows- 
Tools' bietet die Firma Gesys 
eine Utilitysammlung für die 
Benutzeroberfläche Windows 
an. Diese Sammlung enthält un¬ 
ter anderem einen wissenschaft¬ 
lichen Rechner, ein Snapshot- 
programm, ein Album zum 
Speichern von bis zu 1000 Bil¬ 
dern oder Texten aus der Zwi¬ 
schenablage, einen Wecker und 


ein Hardware-Info-Programm. 
Für alle, die erst einmal hinein¬ 
schauen wollen, ist eine Demo- 
Diskette für 10,- DM erhält¬ 
lich. 

Preis: 485,- DM 
Info: 

GESYS Software Consulting 
GmbH, 

Rebenring 23, 

3300 Braunschweig 
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[—Software-Review 



Fantastische Titel- und Zwischengrafiken, aber 
das Spiel vermag nicht zu überzeugen 


Wild Streets 


Schauplatz: New York im Jahre 
1998. Banden haben bereits die 
Hälfte der Stadt unter Kontrolle. Es 
herrscht Verwüstung und Gewalt. 
Die CIA wird zur Hilfe gerufen und 
landet einen gewaltigen Erfolg in 
der Verbrecherbekämpfung. 

Unter der Leitung von John Steven 
werden kleinere Banden zur Raison ge¬ 
bracht. Eine Razzia der Spezial truppe 
legt ein riesiges Waffenarsenal frei und 
macht die Unholde um nicht weniger 
als 2 Millionen Dollar ärmer. Doch die 
Unterwelt kann das nicht abhalten, 
weitere Gewalttaten über die Stadt zu 
bringen. Der Leiter der CIA, John Ste¬ 
ven, wird entführt, und man rechnet 
mit dem Schlimmsten. In dieser Situa¬ 
tion werden Sie an den Ort gebracht, an 
dem Steven zuletzt gesichtet wurde. 
Mit Ihrem Gefährten, einem dressier¬ 
ten schwarzen Panther, haben Sie nun 
den Entführten wiederzufinden und 
ihm sicheres Geleit aus dem Grobstadt- 
Dschungel zu bieten. 


1000 Mal gesehn, 1000 Mal ist 

nichts gescheht!... 


In fast schon aufdringlicher Weise wird 
hier ein viel zu oft aufgesetztes Kon¬ 
zept auf dem Monitor verwirklicht. 
Der Held rennt von links nach rechts, 
Bildschirm für Bildschirm, bis zum Le- 
velobermotz und schlägt und schießt 
auf dem Weg dorthin jede Menge Un¬ 
termotze aus dem Spielgeschehen. Der 
Joystick enthält dabei die gängige Bele¬ 
gung: Bewegen, Hüpfen, Springen, 
Schlagen, Treten, Schießen. 


Grafisch kann dem Produkt kaum ein 
Vorwurf gemacht werden. Solide Ani¬ 
mation auf mäßigem Hintergrund bei 
guter Umsetzung der Joystickbewe¬ 
gungen. Herausragend sind sowohl 
Titel- als auch Zwischengrafiken, wo¬ 
bei diese Screens teilweise den kom¬ 
pletten Bildschirm einnehmen. 

Auf die Dauer zieht sich das Spiel aller¬ 
dings ein wenig in die Länge. Durch 
den nicht allzu hohen Schwierigkeits¬ 
grad in den ersten Levels bekommt 
man allerdings nicht wie so häufig nach 
wenigen Minuten den großen Spiel¬ 
frust. Es geht zügig voran, obwohl die 
Gegner mit der Zeit mehr als einen 
Kinnhaken benötigen, um sich in Luft 
aufzulösen. 

Fünf Levels sind zu meistern, bevor 
man John Steven, den etwas schwächli¬ 
chen CIA-Boß, entdeckt. Danach gilt 
es dann, den Strategen zurückzufüh¬ 
ren, ohne ihn den Schlägen der Gegner 
auszusetzen; denn viel Kraft hat der 
gute Steven nicht, und wenn die erst 
einmal verbraucht ist, dann ist 
“Schicht“ in New York. 

Durchwachsen 

Mit Wild Street stellt sich ein Mittel¬ 
maß vor. Die Idee ist alt wie Methusa¬ 
lem, die Ausführung dem heutigen 
Standard entsprechend. Gut ist in je¬ 
dem Fall, daß die sechs Plätze der 
Highscore-Liste auf Datenträger gesi¬ 
chert werden, so daß man seine Hel¬ 
dentaten der Nachwelt gelb auf dunkel¬ 
rot präsentieren kann. 

Mit knapp 50 DM ist das Spiel sicher¬ 
lich überteuert; für den halben Preis 
hätte man sich nicht beklagen können. 
So bleibt ein mäßiges Produkt, das in 
allen Punkten zwar nicht ab¬ 
schreckend. aber auch nicht magne¬ 
tisch anziehend wirkt. 

(jf) 
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Wild Street 

Hersteller: Titus 

Steuerung: Taslaiur/Joystick 

Preis: 49,95 DM (Diskette) 



Über wenig Gegner kann man sich bei Scramhle 
Spirits wahrlich nicht beschweren 


Scramble Spirits 


Es gibt Dinge, die darf man den Le¬ 
sern nicht vorenthaiten. Zu diesen 
Kuriositäten gehört die Hinter¬ 
grundgeschichte des Spiels Scramble 
Spirits. Was da in nicht einmal fünf 
Zeilen an Nichtssagendem vermittelt 
wird, kommt an die Qualität man¬ 
cher politischen Rede heran: 

“Zu Anfang des 21. Jahrhunderts be¬ 
ging die Menschheit einen riesengro¬ 
ßen Fehler. In der Folge wurden einige 
Länder der Dritten Welt rehabilitiert. 
Dann, eines schönen Tages, wurde die 
Erde das Opfer eines Überraschungs¬ 
angriffs durch einen mysteriösen 
Feind. Höchste Alarmstufe! Rette sich 
wer kann!“ 

Der letzten Aufforderung ist ob dieses 
literarischen Meisterwerkes nichts hin¬ 
zuzufügen. Kommen wir daher zum 
Spiel an sich, das wesentlich mehr 
Qualitäten in sich birgt als dieser 
schlampig übersetzte Unfug. 

Schießen bis der Daumen blutet 

Ein oder zwei Spieler können sich 
gleichzeitig an diesem Schießspiel be¬ 
teiligen. Es ist dabei erstaunlich, daß es 
zu keinerlei Geschwindigkeitseinbu¬ 
ßen auf der Spielfläche kommt, ob¬ 
gleich sich bei diesem scrollenden 
Spektakel mitunter einiges auf dem 
Monitor tummelt. Sie fliegen ein futu¬ 
ristisches Flugzeug und schießen auf 
alles, was sich bewegt oder am Boden 
fest installiert ist. 

Diese gegnerischen Ziele ausfindig zu 
machen, ist ein einfaches Unterfangen, 
da sie sich farblich vom Hintergrund 
absetzen. Die beweglichen Ziele sind 
ohnehin nicht zu übersehen, da sie in 


8 PC 6/7’90 























Software-Review—i 


schnellen Formationen vor dem eige¬ 
nen Flieger umhersausen. 

Der oder die Spieler müssen sich nun 
Level für Level durch das Getümmel 
kämpfen, wobei sie kurz vor Beendi¬ 
gung einer Spielstufe der übliche Ober¬ 
bösewicht erwartet. Danach geht es 
dann in die nächste Ebene. Die Gegner 
werden wilder, die Schüsse gezielter, 
die Leben geringer. 

Um den Spielern das Überleben etwas 
leichter zu machen, gibt es hier und da 
Extrawaffen einzusammeln, die die 
Schußkraft erheblich verstärken. Auch 
können diese Waffen per Knopfdruck 
von Bodenzielen auf Luftziele umge¬ 
stellt werden. 

Falls einer der Krieger einmal das Zeit¬ 
liche segnen sollte, so kann er auch bei 
Verlust aller Leben an der angekom¬ 
menen Stelle weitermachen; bis ihn das 
endgültige Aus nach drei Lebensrun¬ 
den erreicht. 

Das sorgt für erhebliche Motivations¬ 
schübe und tut dem Spiel gut. 

Die besten Schützen dürfen sich in eine 
Highscore-Tabelle eintragen, die lei¬ 
der nicht auf Diskette oder Kassette ge¬ 
sichert wird. Der Sound ist sehr haus¬ 
backen ausgefallen. Gut zu wissen, daß 
es beim CPC einen Regler zum Leise¬ 
stellen der akustischen Ergüsse des 
Computers gibt.' 

Munteres Spektakel 

Auch wenn man diesem Programm kei¬ 
ne besonders überwältigenden Noten 
geben kann, so muß man trotzdem fest- 
halten, daß es sich bei Scramble Spirits 
um ein sehr unterhaltsames Spiel han¬ 
delt. Das fängt bei der Anleitung an 
(siehe oben) und hört bei dem wirklich 
gelungenen Zwei-Spieler-Modus auf. 
Daß es hier letztlich einmal mehr nur 
um Abschießen von irgendwelchen fik¬ 
tiven Unholden geht, sei geflissentlich 
übersehen. 

(jf) 
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Scramble Spirits 

Hersteller: Sega Enterprises 
Steuerung: Tastatur/Joystick 

Preis: 49,95 DM (Diskette) 



Nur mäßige Unterhaltung bietet Black Tiger 


Black Tiger 


Als sich in ferner Vergangenheit 
drei grausige Drachen auf die Erde 
begaben, um dem Königreich Angst 
und Schrecken zu bringen, begann 
die Zeit des Elends. 

Die einzige Gegenwehr konnte da der 
mächtige und furchtlose Kämpfer mit 
Namen Black Tiger darstellen. 

Diese Rolle übernehmen natürlich Sie, 
der erprobte Computerspieler. In be¬ 
währter Art bewegen Sie Ihre Figur 
durch ein Labyrinth von Ebenen, in de¬ 
nen Sie sich mit allerlei Unholden aus¬ 
einanderzusetzen haben. Daneben sind 
Schätze einzusammeln, die mal offen, 
mal versteckt auf dem Schlachtfeld zu 
finden sind. Erstarrte Greise geben 
Hilfe, sofern man sie befreit. Schließ¬ 
lich hat man noch mit dem Levelhüter 
ein Hühnchen zu rupfen, bevor es dann 
in die nächste Spielstufe geht. Die ein¬ 
gesammelten Gelder können an be¬ 
stimmten Stellen bei einer Art fahren¬ 
dem Händler gegen Ausrüstungsge¬ 
genstände eingetauscht werden. 

Action in Uni 

Man kann nicht behaupten, daß es sich 
bei Black Tiger um ein Highlight der 
neuen Softwareprodukte handelt. Die 
Spielfläche ist komplett einfarbig, da¬ 
für - weil in Mode 1 programmiert — 
etwas detaillierter. Die Einfarbigkeit 
führt allerdings dazu, daß bestimmte 
Gegenstände oder Gegner nur erahnt 
werden können, sollten sie in unglück¬ 
licher Position zum Hintergrund ste¬ 
hen. Auch bei Konfrontationen mit 
mehreren Gegnern kann man besten¬ 
falls vermuten, wer wo was gerade an¬ 
stellt. 


Die Joystickumsetzung hätte durchaus 
präziser sein können, was auch auf die 
Tastatursteuerung bezogen werden 
kann; immerhin lassen sich die Tasten 
selbst belegen. Die verschiedenen 
Gegner sind im Handzettel beschrie¬ 
ben: Feuermumien, Blockköpfe oder 
Weiber des Todes haben etwas dage¬ 
gen, daß sich der Spieler in ihr Terrain 
begibt. Daß die Anleitung noch von 
farblich zu unterscheidenden Features 
spricht, mutet aufgrund der Einfarbig¬ 
keit des Spiels wie ein schlechter 
Scherz an. Apropos schlechter Scherz: 
Wie üblich befinden sich auf der Rück¬ 
seite der Packung einige Screenshots 
des Spiels. Wer sich flüchtig diese vor 
Farbe nur so strotzenden grafischen 
Werke ansieht, wird, wie so oft, in die 
Irre geführt. Die Bildschirmfotos von 
Atari und Amiga machen die Schachtel 
zu einer Mogelpackung; denn eigent¬ 
lich sollte innen zu finden sein, was au¬ 
ßen propagiert wird; aber mit dieser 
schon fast üblichen Käufertäuschung 
muß man als CPC-Besitzer eben leben. 

Das Übliche 

Alle Elemente dieses Programms hat 
man schon in vielen Spielen gesehen. 
Wenn dann wenigstens die Aufma¬ 
chung den Touch des Besonderen hät¬ 
te, aber auch da ist es schlecht um das 
Programm bestellt. Hausbackene Gra¬ 
fik, eine permanent dudelnde Hinter¬ 
grundmusik und die übliche Minianlei¬ 
tung schaffen es nicht, aus Black Tiger 
ein empfehlenswertes Werk zu ma¬ 
chen. 

Fest steht, daß der CPC in puncto Mas¬ 
se der angebotenen Software nicht 
mehr mit den anderen Computertypen 
konkurrieren kann. So klein ist der 
Markt allerdings auch noch nicht, daß 
einige meinen könnten, die CPC-User 
kaufen sowieso alles, was man ihnen 
anbietet. Auch hier entscheidet immer 
noch die Qualität, und die kommt bei 
Black Tiger zu kurz. (jf) 
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Black Tiger 

Hersteller: U.S. Gold 


Steuerung: Tastatur/Joyslick 

Preis: 49.95 DM 
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Probleme der Computerbesitzer 
in der DDR 

Unterschwellig und fast unbemerkt hat es sie doch von Anfang an gege¬ 
ben: die Computerfreaks in der DDR! Trotz aller gesellschaftlicher 
und materieller Beschränkungen (oder gerade deshalb?) entwickelte 
sich eine regelrechte “Szene“, die auf manchmal doch recht unkonven¬ 
tionelle und in der Bundesrepublik abenteuerlich erscheinende Art und 
Weise arbeitete. Über das Was und Wie und welche Blüten diese Szene 
hervorbrachte, wollen wir im folgenden Artikel berichten. 
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Die DDR stellt seit geraumer Zeit eige¬ 
ne Prozessoren und neben den Compu¬ 
tern für den industriellen Gebrauch 
(diese sollen in diesem Artikel unbe¬ 
rücksichtigt bleiben), auch die soge¬ 
nannten “Heimcomputer“ her. 

Hardware made in VEB 

Diese sind ausnahmslos 8-Bit-Mikro- 
rechner auf Basis der CPU U880 (im 
Westen auch als 
Z80 bekannt) und 
haben seit ihrer 
Produktionsauf¬ 
nahme im Jahre 
1984 kaum Ände¬ 
rungen erfahren. 

1983 köchelte es 
bereits in der Ge¬ 
rüchteküche: Die 
DDR wird Heim¬ 
computer her stel¬ 
len, Punkt! Keiner 
wußte etwas Ge¬ 
naues, und Speku¬ 
lationen über Preis 
und Ausstattung 
machten die Run¬ 
de. Zur Leipziger 
Frühjahrsmesse 

1984 war es so¬ 
weit, der Heim¬ 
computer “HC 
900“ aus dem VEB 
Mikroelektronik 
Mühlhausen und 
der “29001“ aus 
dem VEB Robo- 
tron-Meßelektro- 
nik Dresden wur¬ 
den dem Besucher 
als Spitzenproduk¬ 
te der angewandten 
Mikroelektronik 
offeriert. Die tech¬ 
nischen Parameter 
beider Geräte be¬ 
züglich Grafik und 
Speicherausbau 
weichen erheblich 
voneinander ab 
(siehe Tabelle 1). 

Anfangs mußte 
noch bei beiden Computern der 
BASIC-Interpreter (zirka 10 kByte) in 
das ohnehin schon dürftige Anwender- 
RAM nachgeladen werden, und es ver¬ 
blieben magere 5 kByte freier RAM. 
Aber das war erst einmal uninteres¬ 
sant, da diese Geräte, die ursprünglich 
für den freien Verkauf konzipiert wa¬ 
ren, per Ministerratsbeschluß in Er¬ 
mangelung einer effektiven PC-Pro- 
duktion nur an Betriebe und gesell¬ 


schaftliche Institutionen abgegeben 
werden durften. Dazu kamen noch die 
Probleme mit der Software. Außer ein 
paar aus der Not geborenen Demon- 
strations- und Spielprogrammen sowie 
je einem Assembler beziehungsweise 
Reassembler kann bis zum heutigen 
Tage für diese Computer keinerlei 
Software käuflich erworben werden, 
da das volkseigene Kombinat Robotron 
als gesetzlich verbriefter Monopolin¬ 


haber des gesamten kommerziellen 
Soft- und Hardwarevertriebs entweder 
kein Interesse oder keine Kapazitäten 
für Heimcomputer-Software hat. Diese 
Frage ist übrigens bis heute noch offen. 
Die Folge davon ist. daß jeder Anwen¬ 
der “das Fahrrad neu erfand“ und mü¬ 
hevoll eigene BASIC-Programme kre¬ 
ierte — ob diese Verfahrensweise ef¬ 
fektiv ist, sei dahingestellt. Nach und 
nach wurden diverse Zusatzmodule 


entwickelt (Speichererweiterung auf 
64 kByte, V.24-lnterface, I/O-Karte, 
Programmodule und vieles mehr), wo¬ 
durch diese Computer mit entsprechen¬ 
dem materiellem und finanziellem Auf¬ 
wand aufgerüstet werden können (Ta¬ 
belle 2). Die damals an Privatpersonen 
unverkäuflichen Heimcomputer haben 
zwischenzeitlich neben einer Namens¬ 
änderung (aus dem Z9001 wurde der 
KC85/1 und später der KC87; der 
HC900 wurde in 
KC85/2 und später 
in KC85/3 bezie¬ 
hungsweise KC 
85/4 umbenannt) 
unwesentliche 
technische Neue¬ 
rungen erfahren 
und sind seit 1988 
frei verkäuflich. 
Letztendlich konn¬ 
ten sich die DDR- 
Heimcomputer 
aufgrund ihres 
Preises und techni¬ 
schen Niveaus im 
Vergleich zu west¬ 
lichen Geräten nie 
durchsetzen. Dazu 
gesellte sich das 
große Manko der 
fehlenden Soft¬ 
ware, was dazu 
führte, daß diese 
Geräte heute zu 
den Ladenhütern in 
den einschlägigen 
Fachgeschäften 
und Warenhäusern 
gehören. 

Heutzutage findet 
man diese Compu¬ 
ter hauptsächlich in 
Computerkabi net¬ 
ten von Schulen 
und Berufsschulen, 
wo sie zur Infor¬ 
matikausbildung 
der Schüler und 
Lehrlinge dienen, 
sowie in staatlichen 
Freizeitzentren und 
Jugendclubs. 

Westgeräte oder 
“Do it yourself“? 

Durch das Verkaufsverbot von VEB- 
Homecomputern an Privatpersonen 
schien für die Computerfreaks in der 
DDR das Thema Heimcomputer abge¬ 
schlossen. Doch der echte Freak war 
hartnäckig, und es blieb nur die Wahl ei¬ 
ner der beiden Alternativen: entweder ei- 
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nen Computer aus dem Westen oder ein 
Computer Marke Eigenbau. 

Hatte man bei ersterer Variante das Fi¬ 
nanzierungsproblem, so sah es bei der 
Variante Eigenbau bezüglich nachbausi¬ 
cherer Schaltungen und vor allem in 
puncto Verfügbarkeit von Bauelementen 
auch nicht viel rosiger aus. Egal wie, 
man mußte schon einige Anstrengungen 
unternehmen, um an einen Computer zu 
kommen. 

Viele Freaks “besorgten“ sich ihre Ge¬ 
räte über Verwandte oder Bekannte di¬ 
rekt aus dem Westen, obwohl die damals 
gültigen Zollbestimmungen die Einfuhr 
von Computern für private Zwecke nicht 
gerade förderten. Daraus resultierte das 
bis heute fast unveränderte Preisniveau 
auf dem Gebrauchtgerätemarkt, wie 
Kleinanzeigenteile der DDR-Elektronik- 
zeitschriften zeigen. 

In der Regel werden alle Peripheriege¬ 
räte wie Drucker, Diskettenstation und 
so weiter zum gleichen Preis wie der 
Computer selbst gehandelt. Mancher 
wird jetzt einwenden, daß die Drucker 
der “Präsident“-Serie doch in der DDR 
hergestellt werden. Das ist zwar rich¬ 
tig, allerdings wird der größte Teil der 
“Präsident“-Drucker exportiert, und 
nur ein geringer Teil verbleibt im Land 
und wird ausschließlich an VEB-Be- 
triebe verkauft. Damit sind gerade 
Drucker in der DDR selbst für Betriebe 


Mangelware und für Privatpersonen 
überhaupt nicht erhältlich. Wer sich 
also einen “Präsident“-Drucker zule¬ 
gen möchte, muß ihn im Westen kaufen 
und in die DDR einführen. Für PCs der 
XT-Klasse (gängige Typen sind Am- 
strad PC15L2, PC1640, Schneider 
Euro-PC, Commodore PCs und ande¬ 
re) werden schwindelerregende Preise 
verlangt; unter 20000 DDR-Mark ist 


fast nichts zu haben. ATs sind auf dem 
Gebrauchtgerätemarkt fast nicht zu ha¬ 
ben und für den Normalverbraucher 
auch unbezahlbar. 

Aus Gründen der Verfügbarkeit von 
Software und einer Reihe damals gülti¬ 
ger Einfuhr- und Zollbestimmungen 
resultiert eine gewisse Typenklassifi¬ 
zierung in der DDR. So dominieren bei 
den 8-Bit-Computern die Typen C64, 



KC85/1 

KC85/2 

CPU 

U 880D 

U 880D 

Takt 

1.75 MHz 

1,75 MHz 

RAM 

17 kByte 

32 kByte 

freier RAM 

16 kByte 

18 kByte 

ROM 

6 kByte 

4 kByte 

Speichererweiterung 

maximal 64 kByte 

maximal 4096 kByte 

Bildaufbau 

24 Zeilen x 40 Spalten 

320 x 256 Pixel 

Grafik 

128 Symbole 

Vollgrafik 

Farben 

nachrüstbar 

16 Vordergrund 

8 Hintergrund 

Sound 

1 Summer 

2 Tongeneratoren 

externer Speicher 

Kassette 

Kassette 

externe Anschlüsse 

TV 

TV 


Magnetband 

RGB 


4 Modulsteckplätze 

2 Modulsteckplätze 


2 Joystick 

1 Interface 

Programmiersprachen 

BASIC 

BASTC 


Assembler 

Assembler 


Tabelle 1: Technische Parameter der Computer 


In eigener Sache 

Die Zeiten ändern sich, und wer sich den Veränderungen nicht anpaßt, 
der bleibt auf der Strecke. Dies gilt auch in nicht geringem Maße für die 
PC Amstrad International, deren Hauptthema der CPC ist und bleibt. 


Die technischen Entwicklungen auf der 
Computerebene steigen zusehends und 
damit auch die Ansprüche der Anwen¬ 
der. Waren noch vor einigen Jahren 
Rechner wie der CPC oder der C64 
marktführend im Homecomputerbe¬ 
reich, so haben diese Stellung längst die 
16-Bit-Rechner eingenommen. Amiga, 
Atari oder PC/XT/AT sind im Preis 
derart gefallen, daß man heute nicht 
mehr dafür ausgeben muß als beispiels¬ 
weise für einen CPC mit Farbmonitor 
anno 1987. 

Die meisten Hersteller konzentrieren 
sich daher auf die schnelleren und lei¬ 
stungsfähigeren Rechner. Dies hat zur 
Folge, daß Neuheiten für die 8-Bit- 
Computer immer rarer werden. 

Für eine Fachzeitschrift wie die PC 
Amstrad International bedeutet dies, 
daß die immer geringer werdende An¬ 


zahl von Neuerungen zu redaktionellen 
Schwierigkeiten führt. 

Wir könnten uns also in der Zeitschrift 
mit Themen beschäftigen, die in sehr ge¬ 
ringem Maße mit dem CPC zu tun ha¬ 
ben, oder aber die sich auftuenden Lö¬ 
cher mit prähistorischen Informationen 
stopfen, deren Lektüre Ihnen sicherlich 
nicht weiterhelfen würde. So haben wir 
Gedanken über das weitere Erscheinen 
der PC Amstrad International angestellt. 
Nach reifer Überlegung sind wir dabei 
zu folgenden Entschlüssen gekommen. 

Weniger Aktuelles, 
mehr Programme 

Um fehlende Aktualitäten auszuglei¬ 
chen, werden wir ab sofort Doppelaus¬ 
gaben produzieren. Weiter haben wir 
den Umfang der PC Amstrad Internatio¬ 


nal um 16 Seiten vergrößert. Diesen 
Platz gedenken wir in Zukunft durch 
gehobene Programme zu füllen, die den 
normalen Umfang überschreiten. Wir 
werden Ihnen also anstelle von aktuel¬ 
len Testberichten noch mehr und noch 
bessere Software bieten. 

Im Zuge dieser Neuerungen hat sich die 
Gestaltung der Zeitschrift leicht verän¬ 
dert. Sie finden ab dieser Doppel¬ 
ausgabe alle Listings gesammelt in der 
Mitte der Zeitschrift. Durch diese neue 
Anordnung versprechen wir uns unter 
anderem eine übersichtlichere Präsen¬ 
tation der Artikel. 

Der Wermutstropfen 

Aufgrund geringfügiger redaktioneller 
Umstellungen sind wir gezwungen, auf 
unbefristete Zeit den gern von Ihnen in 
Anspruch genommenen Service der 
Hotline einzustellen! Hierfür bitten wir 
um Ihr Verständnis. 

Interessiert blicken wir in jedem Fall 
auf Ihre Meinung bezüglich des neuen 
Aussehens Ihrer PC Amstrad Inter¬ 
national. 

(cd/rs/jf) 
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Bezeichnung 

Preis (DDR-Mark) 

Digital I/O 

405,- 

TEXOR-Textverarbeitungssytem auf ROM-Modul 

775,- 

V.24-Schnittstelle 

775.- 

64-kByte-RAM-Speichererweiterung 

700,- 

16-kByte-RAM-Speichererweiterung 

295,- 

FORTH (Programmiersprache) 

775,- 

Development Assembler 

775,- 

Busdrive (4 Zusatzmodulschächte) 

1580,- 

Grundgerät KC85/4 

2150,- 


Tabelle 2: Zusatzmodule für KC85/2, KC85/3, KC85/4 


die 800er-Serie von Atari, der Sinclair 
Spectrum, der Amstrad CPC464 und 
CPC6I28. Diese Geräte sind die be¬ 
liebtesten und verbreitesten Computer¬ 
typen in der DDR, für die auch das 
größte Softwareangebot vorhanden ist. 
Die 16-Bit-Maschinen sind in den Krei¬ 
sen der privaten Anwender noch selten 
anzutreffen, aber hier spielt natürlich 
die Preisfrage die entscheidende Rolle. 

IC-Probleme 

Der Bastler von Eigenbaucomputern 
ist allerdings auch nicht viel besser 
dran. Vor dem Nachbau von Original¬ 
geräten schützt sich schon der Herstel¬ 
ler durch die Verwendung von Spezial- 
ICs (PLAs und ähnliche), außerdem 
gibt es Probleme bei der Beschaffung 
der DDR-Äquivalenztypen von Stan- 
dard-ICs. Trotz alledem wurden in den 
letzten Jahren eine Reihe nachbausi¬ 
cherer Schaltungen für 8-Bit-Computer 
bei ausschließlicher Verwendung von 
DDR-Bauelementcn entwickelt. Das 
Angebot reicht von der absoluten Ei¬ 
genentwicklung bis zum Nachbau von 
Originalcomputern. Dabei wurden die 
Funktionen von Spezial-ICs der Origi¬ 
nalgeräte ausschließlich mit in der 
DDR verfügbaren Bauelementen nach¬ 
gebildet. Am beliebtesten sind die Ver¬ 
sionen der Sinclair-Serie, die sich hin¬ 
sichtlich ihrer Soft- und Hardwarekom¬ 
patibilität zu den Originalcomputern 
erheblich voneinander unterscheiden 
(sie beträgt zwischen 70% und 100%). 
Neben dem Nachbau von Computern 
wurde bei verschiedenen Originalgerä¬ 
ten durch geringfügige Hardwareände¬ 
rungen und Überarbeitung der Be¬ 
triebssysteme einige interessante Ver¬ 
besserungen erzielt. Dabei handelt es 
sich meist um die Beseitigung der Be¬ 
triebssystemfehler und die Einbindung 
neuer Zusatzfunktionen in das ROM. 

Zusatzgeräte aus den 

heimischen Labors 

Über kurz oder lang hat jeder Compu- 
terfreak das Bedürfnis, sich mit Zu¬ 


satzgeräten auszustatten, um überhaupt 
arbeitsfähig zu sein oder um sein Sy¬ 
stem auszubauen. An dieser Stelle ist 
wieder einmal der Erfindergeist des 
DDR-Computeranwenders gefragt, da 
für viele der Kauf von Peripherie im 
Westen nicht finanzierbar ist und die 
Preise dafür auf dem Gebrauchtmarkt 
schwindelerregende Höhen einneh¬ 
men. Man krempelt also wieder einmal 
die Ärmel gen Ellenbogen und baut die 
teuren Geräte mit verhältnismäßig ein¬ 
fachen Mitteln nach. Die Palette der 
üblichen Nachbauten ist auch hier recht 
umfangreich und reicht von der einfa¬ 
chen Interface-Schaltung für Dataset- 
ten (zum Beispiel für Commodore- und 
Atari-Computer der 8-Bit-Klasse), um 
jedes beliebige Kassettengerät als Mas¬ 
senspeicher nutzen zu können, über 
Speichererweiterungen, Eprommer, 
Schnittstellen für Drucker und Disket¬ 
tenstationen bis zu Videotextdecodern 
und sonstigem für eigentlich alle ge¬ 
bräuchlichen Rechner. 

Zugegeben, manche dieser “nachemp¬ 
fundenen“ Bauten fallen etwas größer 
als das Original aus, aber am Ende ist 
lediglich die Funktionstüchtigkeit ent¬ 
scheidend. Dieser aus der Not gebore¬ 
ne Eigenbau-Boom brachte natürlich 
auch einige Blüten hervor, die an die¬ 
ser Stelle nicht unerwähnt bleiben sol¬ 
len. So wurden Drucker aus alten Fern¬ 
schreibern gebaut, Drucker wurden zu 
Scannern um funktioniert, Plotter, 
Maus und anderes gebastelt, Computer 
des Typs Spectrum wurden mit einer 
Speichererweiterung ausgestattet und 


sind damit wahlweise als CP/M-Rech- 
ner mit Kassette (!) oder als externer 
Massenspeicher verwendbar. Diese 
Reihe ließe sich noch fortsetzen — es 
gibt fast nichts, was nicht in irgend¬ 
einer Form nachgebastelt wurde. 
Außer dem Hardwarenachbau mit Mit¬ 
teln, bei denen der Bastler im Westen 
wahrscheinlich kaum eine Chance 
sehen würde, das Gerät jemals zum 
Funktionieren zu bewegen, mußten die 
unmittelbar damit verbundenen Pro¬ 
bleme der Softwareanpassung gelöst 
werden. Dazu dienten meist Computer 
mit “getunten“ Betriebssystemen, 
selbstentwickelte Monitore und Test- 
Debugger oder unter Umständen sogar 
spezielle Hardwareschaltungen. 

Information und 
Kommunikation 

Die genaue Kenntnis der Computer¬ 
hardware und besonders der integrier¬ 
ten Firmware sollten die Grundlagen 
für jeden Programmierer sein, der ef¬ 
fektiv annähernd professionelle Pro¬ 
gramme schreiben möchte. Normaler¬ 
weise können diese Informationen aus 
Fachzeitschriften oder -büchern ge¬ 
wonnen werden, die man im einschlä¬ 
gigen Buch- oder Zeitschriftenhandel 
erhält. Leider konnte der Computer¬ 
freak in der DDR bis vor kurzem diese 
Quellen nur bedingt nutzen, da die Ein¬ 
fuhr von Zeitschriften, Büchern und 
Datenträgern verboten und im Fach¬ 
handel kaum Literatur erhältlich war. 
Selbst heute noch sind gute Fachbücher 
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aufgrund zu geringer Auflagen rar und 
deshalb meist in Stunden vergriffen. 
Zwar gibt es seit 1987 eine spezielle 
Fachzeitschrift für Computertechnik, 
die “MP-Zeitschrift für Mikroprozes¬ 
sortechnik“, aber wie kann eine Zeit¬ 
schrift alle Leser vom Spieler bis zum 
Systemprogrammierer bei einem Um¬ 
fang von 30 Seiten je Monatsausgabe 
ausreichend informieren? 

Außerdem ignorierte man von Anfang 
an völlig, daß die Masse der privaten 
Rechner westlicher Herkunft war. Man 
druckt bis heute ausschließlich Artikel 
und Berichte über Computer, die in der 
DDR gebaut werden. Damit ist diese 
Zeitschrift für die Mehrzahl der Freaks, 
die auf der Suche nach Informationen 
über ihre Computer sind, im allgemei¬ 
nen uninteressant. Die natürliche Folge 
dieses Informationsdefizits war, daß in 
den vergangenen Jahren Literatur und 
Datenträger aus dem Westen ge¬ 
schmuggelt wurden. Da in der DDR 
die Computernutzer in engem Kontakt 
zueinander stehen, wurden jede Zeit¬ 
schrift oder jedes Buch in Umlauf ge¬ 
bracht und über das weit verzweigte 
Netz praktisch jedem zugänglich ge¬ 
macht. In der Regel filtrierte man die 
Informationen entsprechend dem per¬ 
sönlichen Interessengebiet aus, indem 
nicht selten ein Artikel einfach abge¬ 
schrieben werden mußte und auf diese 
Art gesammelt wurde (Kopiergeräte 
waren offiziell nicht verfügbar). 

Im Netz der Computeranhänger 

Angesprochenes Netz dient gleicher¬ 
maßen der Beschaffung von Informa¬ 
tionen und Software. Anfängliche Ver¬ 
suche einiger Leute, mit dem Verkauf 
von Software und Informationsmate¬ 
rial die “schnelle Mark“ zu machen, 
wurden von der Mehrzahl der Freaks 
durch die prinzipiell kostenlose Ver¬ 
mittlung untergraben. Im Laufe der 
Jahre entstanden für die genannten 
Computertypen sowohl örtliche als 


auch zentrale User-Clubs, deren Anlie¬ 
gen neben der nichtkommerziellen 
Verbreitung von Informationen und 
Software die Vermittlung von Kontak¬ 
ten ist. Auf jährlich stattfindenden, 
zentralen Tagungen werden die neue¬ 
sten Hardwarebasteleien und Software¬ 
lösungen vorgestellt, Partner für spe¬ 
zielle Probleme gesucht und vor allem 
Informationen ausgetauscht. Nicht sel¬ 
ten untergliedern sich diese Clubs noch 
in verschiedene Interessengebiete wie 
Hardware, Peripherie, Grafik, Sound, 
Programmiersprachen etc. 

Softwarelösungen 

Wie überall auf der Welt sind auch die 
meisten DDR-Computerfreaks in er¬ 
ster Linie Spielernaturen. Demnach 
sind Unmengen von Spielprogrammen 
im Umlauf, die über dunkle Kanäle in 
die DDR eingeschleust wurden. Gute 
Anwenderprogramme sind dagegen 
rar, obwohl große Nachfrage danach 
besteht. Aus dieser Situation heraus 
sind deshalb in den letzten Jahren recht 
ansprechende Anwenderprogramme 
für einige der genannten Computerty¬ 
pen entstanden, die den Vergleich mit 
im Westen verkaufter Software nicht 
zu scheuen brauchen. Wie bereits er¬ 
läutert, besteht das Hauptproblem in 
der Beschaffung aussagekräftiger Sy¬ 
stemunterlagen für die jeweiligen 
Computertypen. Weil der Program¬ 
mierer nicht erwarten kann, daß jeder 
spätere Anwender seines Programms 
beispielsweise über Speichererweite¬ 
rungen, Drucker oder sogar Disketten¬ 
stationen verfügt, muß das Programm 
eine Gratwanderung zwischen dem 
maximalen Ausschöpfen der Firmware 
und dem Streben nach kleinstmögli- 
chem Speicherbedarf sein. Dazu bedarf 
es natürlich umfassender Kenntnisse 
über Hard- und Firmware des Compu¬ 
ters. Gerade die Verwaltung des meist 
als viel zu klein angesehenen Speicher¬ 
raums bei einem 8-Bit-Computer berei¬ 


tet dem Programmierer hin und wieder 
erhebliche Kopfschmerzen. Da läßt es 
sich manchmal mangels entsprechen¬ 
der Fachliteratur nicht vermeiden, pro¬ 
fessionelle Programme zu “knacken“ 
und zu reassemblieren, um hinter die 
Tricks ihrer Entwickler zu kommen. In 
der Regel sind umfangreiche und vor 
allem zeitraubende Vorarbeiten nötig; 
Informationen müssen aus allen mögli¬ 
chen Quellen zusammengetragen wer¬ 
den. An dieser Stelle zahlen sich aller¬ 
dings die engen Kontakte der Compu¬ 
terfreaks aus. Auch wer im Moment 
nicht weiterhelfen kann, hört sich in 
seinem näheren und weiteren Bekann¬ 
tenkreis um, bis mit etwas Glück eines 
Tages das gewünschte Material ein¬ 
trifft. Mit großem Zeitaufwand und 
meist in mühevoller Kleinstarbeit ent¬ 
stehen dann die Programme, die aus¬ 
schließlich als Freeware in Umlauf ge¬ 
bracht werden und somit allen Interes¬ 
sierten zur Verfügung stehen. 

Epilog 

Das Ereignis des letzten Jahres, die 
Öffnung der deutsch-deutschen Grenze 
für jedermann, hat natürlich auch in 
den Köpfen der DDR-Computerfreaks 
so etliche Hoffnungen geweckt. Man¬ 
cher konnte seinen sicherlich schon 
lange gehegten Wunsch erfüllen und 
sich Gerätetechnik, Literatur und vie¬ 
les andere mehr kaufen oder Kontakte 
zu Gleichgesinnten im Westen knüp¬ 
fen. Ungeachtet dessen wird man wohl 
noch eine Weile wie bisher “weiter¬ 
wursteln“ müssen, obwohl in Zukunft 
wesentlich mehr Möglichkeiten zur 
Verfügung stehen werden als in der 
Vergangenheit. Bleibt lediglich zu hof¬ 
fen, daß die im Laufe der letzten Jahre 
aus der gemeinsamen Not entstandenen 
Kontakte noch recht lange bestehen 
bleiben mögen. 

(Bernd Zierath/jt) 
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AMS-Line-- 

Der direkte Draht zur Firma AMSTRAD 

Wie jeden Monat die aktuellsten Informationen von AMSTRAD 


Hotline für Anwender 
Seit dem 01.04.1990 hat AMSTRAD 
eine Anwender-Hotline eingeführt. 
Nun können sich alle Anwender bei 
Anfragen, die unsere Geräte betref¬ 
fen, direkt mit unserem Service- 
Team in Verbindung setzen. Unter 
der Telefonnummer (0 61 05) 200367 
stehen Ihnen von montags bis freitags 
in der Zeit von 15 bis 17 Uhr drei un¬ 
serer Techniker für Ihre Anfragen zur 
Verfügung. Bitte wenden Sie sich mit 
den Anfragen zuerst an Ihren Fach¬ 
händler, denn unsere Hotline soll in 
Problemfällen erreichbar sein. 

Installation des Betriebssystems 
(DOS 4.01) auf der Festplatte beim 
PC 2286 

Da zu diesem Punkt in der letzten Zeit 
mehrere Anfragen kamen, gehen wir 
hier noch einmal auf die allgemeine 
Vorgehensweise ein. 

Zuerst ein genereller Hinweis: 

Bei allen PCs, die von uns mit Fest¬ 
platte ausgeliefert werden, ist das Be¬ 
triebssystem bereits auf der Festplatte 
installiert. Die Platte muß also nicht 
partitioniert und formatiert werden. 
Man muß nur. wie es bei einem AT 
üblich ist, im Setup-Programm den 
Typ der Festplatte eingeben (bei un¬ 
seren PC 2286/PC 2386 den Typ l). 
Bitte denken Sie daran, nach dem 
Auspacken und Aufsteilen die Batte¬ 
rien unter dem Monitor in den PC 
einzulegen. 

Wenn man nun den PC einsehaltet 
und die Betriebssystemdiskette *In- 
stall-Setup“ ins Laufwerk A einlegt, 
wird nach dem Booten direkt das Set¬ 
up-Programm aufgerufen. Dann ge¬ 
ben Sie bitte die Systemparameter 
ein. Wichtig ist, daß als Festplatten- 
typ Typ 1 eingegeben wird (in man¬ 
chen Handbuchausgaben sind andere 
Festplattentypen angegeben, die Sie 
bitte nicht berücksichtigen). Bitte ent¬ 
fernen Sie jetzt die Install- oder Set¬ 
up-Diskette aus dem Laufwerk A. 
Wenn Sie nun das Setup-Menü ver¬ 
lassen, bootet der Rechner automa¬ 


tisch neu. Jetzt steht (nach dem Boo¬ 
ten) der Prompt C: N auf dem Bild¬ 
schirm, und man kann sofort mit dem 
Arbeiten beginnen. 

HDWIPE bitte löschen! 

Mit manchen PCs wurde fälschli¬ 
cherweise das Formatierungspro¬ 
gramm HDWIPE ausgeliefert. Die¬ 
ses Programm führt eine Low-Le- 
vel-Formatierung der Festplatte 
durch und war ausschließlich für 
Techniker gedacht, um die Festplatte 
nach einer Reparatur neu zu formatie¬ 
ren, Da es nicht mehr für unsere neu¬ 
en Festplatten geeignet ist. muß es 
gelöscht werden, um ungewollten Da¬ 
tenverlusten vorzubeugen. Wenn Sie 
trotzdem einmal irrtümlich HDWIPE 
aufrufen sollten, wenden Sie sich bit¬ 
te sofort an ihren Fachhändler, tun 
Festplattenschaden zu vermeiden. 

Windows auf PC 2286/PC 2386 und 
Maus - no problems 
Die Benutzeroberfläche Microsoft 
Windows, die bei unseren PCs zum 
Lieferumfang gehört, hat einen eige¬ 
nen Maustreiber im Programmpaket 
integriert. Dies gab vielen Anwen¬ 
dern schon Anlaß zur Verzweiflung, 
denn es kam vor, daß sich dieser inte¬ 
grierte Maustreiber mit unserem 
Maustreiber nicht "verstand“. Stö¬ 
rend war dies hauptsächlich, wenn 
man vor Windows unseren Maustrei¬ 
ber startete. Man benötigte anschlie¬ 
ßend mehrere Versuche oder einen 
schnellen Finger, wollte man eine 
Auswahl in Windows anklicken. Das 
alles gehört jetzt der Vergangenheit 
an. Gegen Zusendung eines mit 1.- 
DM frankierten Rückumschlages und 
entsprechendem Hinweis erhalten Sie 
von uns den neuen Maustreiber für 
Windows auf PC 2286/2386. 

Unsere Adresse: 

AMSTRAD GmbH, Dreieichstr.8, 
6082 Mörfelden-Walldorf. 

Unsere Fachhändler stehen Ihnen 
hier ebenfalls gern mit Rat und Tat 
zur Verfügung. 


Belegung der Laufwerksbuch.se für 
ein externes Floppylaufwerk an un¬ 
seren neuen Laptops ALT 286 und 
ALT 386 SX 

Da unsere neuen Laptops auch eine 
Laufwerksbuchse für ein externes 
Floppylaufwerk besitzen, die voll 
kompatibel mit unseren externen 
Floppylaufw'erken ist, drucken wir 
für die Bastler unter Ihnen hier noch 
einmal die Pinbelegung der Buchse 
ab: 

Signale an der Laufwerksbuchse: 

1 — 17 Masse 

18 Frei 

19 Disk Change 

20 Frei 

21 Frei 

22 Index 

23 Drive Select 0 

24 Drive Select 1 

25 Frei 

26 Motor On 

27 Direction 

28 Step 

29 Write Data 

30 Write Gate 

31 Track 0 

32 Write Protect 

33 Read Data 

34 Side Select 

35 Ready 

36 Masse 


Schulungskurse für das zweite 
Halbjahr 1990 

Die Unterlagen zu unserem Schu¬ 
lungsangebot finden Sie jetzt bei Ih¬ 
rem Fachhändler vor. Nähere Infor¬ 
mationen erhalten Sie über unsere 
Anwender-Hotline, Telefon (06105) 
200367, von 15 bis 17 Uhr. 

Ihre 
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Ein neues Betriebssystem? 

Vom CP/M zum ZCPR34 

Nachdem CP/M den langen Weg von Version 1.1 über Version 1.4 zum ausgereiften CP/M 2.2 zurückgelegt hatte, 
stellte die jüngste Version 3.0, auch CP/M Plus genannt, bislang das Nonplusultra dar. Das soll sich ändern. 


Und so geht es: 

Das alte Betriebssystem kann nach wie 
vor gebootet werden, aber der ZCPR 
erst macht das Leben schön, indem er 
eine deutliche verbesserten CCP (Con- 
sole Command Processor), gewisser¬ 
maßen die Schnittstelle zum Anwen¬ 
der, zur Verfügung stellt. Um es vor¬ 
wegzunehmen — die als Public Do¬ 
main verbreiteten Versionen von 
ZCPR bis einschließlich ZCPR 3.3 
sind alle nur unter CP/M 2.2 installier¬ 
bar. Diese Versionen sind und waren 
übrigens nie “Public Domain“. Ledig¬ 
lich die private Nutzung ist gestattet. 
Dieser Command Processor ist Be¬ 
standteil der kommerziellen Pakete 
NZCOM für CP/M 2.2 und Z3PLUS 
für CP/M PLUS. Diese Versionen sind 
lizenzgebunden und daher auch für Be¬ 
triebe einsetzbar. Die Größe der TPA. 
dem freien Programmspeicher, ist dy¬ 
namisch veränderbar, und die Struktur 
der zur Verfügung stehenden Features 
ist austauschbar. Der Anwender be¬ 
nutzt ZCPR bald wie andere Utilities. 
Zur Einstimmung hier eine kurze Ge¬ 
genüberstellung der Strukturen von 
CP/M und ZCPR. 

BIOS: 

Maschinencode speziell auf die Hard¬ 
ware abgestimmt 

BDOS: 

Ein- und Ausgaberoutinen und Schnitt¬ 
stelle zum BIOS 
CCP: 

Kommandoprozessor (kann von Pro¬ 
grammen überschrieben und mit 
CTRL-C nachgeladen werden) 

CP/M weist dabei folgende Nachteile 
auf: Das BIOS benötigt einen wesentli¬ 
chen Teil des Hauptspeichers, der bei 
den Amstrad-CPCs in der Grundver¬ 
sion im AMSDOS-ROM untergebracht 
ist. 

Das Disk-Operating-System BDOS hat 
einige ärgerliche Fehlermeldungen pa¬ 
rat. Am beliebtesten ist: 

BDOS err on A: Select... 

Man hat vergessen, die Diskette mit TC 
anzumelden, und sie wurde daher auf 
Read/only gesetzt, um versehentliches 
Überschreiben von wichtigen Daten zu 
vermeiden. 

Folgende Programmpakete bieten 


komfortablen Ersatz für die erwähnten 
Original-BIOS- und BDOS-Funktio- 
nen: Z80DOS, P2DOS, NOVADOS, 
NZCOM (kommerziell) 

Hierin sind folgende Utilities ent¬ 
halten: 

BIOS, BDOS — virtuelles BIOS 
ZRDOS — ein BDOS-Ersatz 
ZCPR34 — Kommandoprozessor und 
Environment-Descriptor 
ZCPR RCP — Resident Command 
Package (austauschbarer Befehlssatz) 
ZCPR FCP - Flow Control Processor 
(bedingte Befehle: IF ELSE FI) 

ZCPR NDR — Narned Directory (be¬ 
nannte Verzeichnisse, ladbar) 

ERROR SH - ERROR SHELL (Bei¬ 
spiel ERROR 13A. COM) 

Das NZCOM-System 

NZCOM besteht aus folgenden Sy¬ 
stemdateien: 

NZCOM.COM: Starter und Lader des 
ZCPR (Multi-Utility); 

NZCOM.LBR: Library-Modul der Sy¬ 
stem-Beschreibungsdateien; 
ZCPR34.LBR: alternative Command 
Prozessoren in Library; 
MKZCM.COM: (Make ZCM) auto¬ 
matischer Systembeschreiber; 
JETLDR.COM: Schnellader für Sy¬ 
stemdateien. 

Um Ihnen den Installationsvorgang zu 
veranschaulichen, nachfolgend dessen 
genaue Beschreibung. Benötigt werden 
folgende Dateien: 

NZCOM.COM 

MKZCM 


Weitergehende Informationen: 

Alle Fragen, die das neue Betriebs¬ 
system oder auch allgemeines über 
Public Domain betreffen, sind an 
folgende Adresse zu senden: 

Schneider/Amstrad CPC User 
Group München (SCUG) 
c/o Helmut Jungkunz 
Zacherlstr. 14 
8045 Ismaning 

Bitte vergessen Sie nicht, bei Rück¬ 
fragen, einen frankierten und adres¬ 
sierten Rückumschlag beizulegen! 


NZCOM. LBR 
Z3TCAP.TCP 
TCSELECT.COM 
SHOW.COM 

sowie als Zusatzutility SDZ.COM 
Als erstes wird eine CP/M-2.2-Boot- 
diskette erzeugt, mit SETUP die Para¬ 
meter und Tastaturbelegung für CP/M 
festgelegt und der Erweiterungspatch 
durchgeführt. Dabei ist völlig egal, ob 
es sich um ein Vortex- oder Dobbertin- 
CP/M 2.2 handelt. Das Standard- 
CP/M geht auch, die Optimierungs¬ 
möglichkeiten sind aber geringer. Jetzt 
kopiert man die oben genannten Datei¬ 
en auf die erzeugte Diskette. Danach 
ruft man auf: MKZCM CPCCPM2 
Das vorhandene System wird nun ab¬ 
getastet, die neuen Systemgrenzen an¬ 
gezeigt und auf Tastendruck abgespei¬ 
chert. Die erzeugten Dateien erhalten 
den angegebenen Kennamen, anson¬ 
sten werden sie mit NZCOM.??? be¬ 
nannt. 

Standardmäßig werden diese Dateien 
erzeugt: 

NZCOM.ENV: Environment-De¬ 

scriptor (für diese Konfiguration) 
NZCOM.ZCM: die gleiche Datei als 
editierbare ASCII-Datei. Eine der bei¬ 
den Dateien kann beim späteren Ein¬ 
satz gelöscht werden. In der ASCII- 
Datei können verschiedene Werte wie 
MAXDRV editiert werden. Dabei wer¬ 
den beispielsweise die gültigen Lauf¬ 
werke als Bitmaske dargestellt: 
PONMLKJIHGFEDCBA 
00000000000001 11 
Das wäre zum Beispiel eine typische 
CPC-Einstellung für die Laufwerke A. 
B und C. Wie unschwer zu erkennen, 
gibt eine Null ein nicht vorhandenes, 
eine Eins ein zulässiges Laufwerk an. 
Die Änderungen sind jedoch nicht un¬ 
bedingt auszuführen, normalerweise 
geht’s mit der Voreinstellung durchaus. 

Terminals und Steuerzeichen 

Nun gilt es, das richtige Terminal aus¬ 
zuwählen. Da für den CPC unter CP/M 
2.2 jedoch kein solches Terminal be¬ 
steht, wählt man erst mal “HEATH 
Hl9“-Terminal. Dieses entspricht ge¬ 
nau den CP/M-Plus-Steuerzeichen des 
CPC 6128. Damit ist zumindest ge- 
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währleistet, daß kein Control-Z zum 
Bildschirmlöschen verwendet wird. 
Das würde ja einem Window 0,0,0 ent¬ 
sprechen und damit die Bildschirmaus¬ 
gabe unbrauchbar machen. Normaler¬ 
weise könnte man ja in so einem Fall 
mit TDTBTD den Bildschirm wieder 
herstellen, unter ZCPR wird jedoch 
teilweise eine Ausgabe von Kontroll- 
zeichen unterdrückt. Eine Möglichkeit 
besteht darin, die Terminal-Codes in 
NZCOM.COM mit einem Debugger 
zu editieren und zu speichern. Die ent¬ 
sprechenden Adressen findet man 
leicht, da die Terminal-Codes des 
VT52 (wie CP/M PLUS) für 'Cursor 
positionieren' leicht zu finden sind: 

53 1B 59 20 20 (ESC ’Y* HEX 20 
OFFSET). 

Dort trägt man für das CP/M-2.2-Ter- 
minal “52 1F 01 01“ ein. Ein fertiges 
Terminal-Overlay für das CP/M 2.2 
kann direkt bei “SCUG“ bestellt 
werden. 

Jetzt kommt der erste Kontroll-Start: 
NZCOM cpccpm2.env cpccpm2.z3t 
< ENTER > 

Fehler werden angezeigt 

Daraufhin werden die Systemdateien in 
den Speicher geladen und der CCP auf 
Diskette geschrieben, um den Rück¬ 
weg ins CP/M freizuhalten. Am Bild¬ 
schirm bekommt man exakte Auskunft, 
was gerade passiert. Die Systemdatei¬ 
en werden an ihre richtige Adresse ge¬ 
laden und erzeugen ein neues 
NZCOM. Als Test kann man jetzt das 
Utility ZSHOW aufrufen. Liegen die 
Adressen falsch oder gibt es Fehler, so 
wird sofort eine entsprechende Mel¬ 
dung ausgegeben. War man erfolg¬ 
reich, so kann man in die Environment- 
Pakete Einblick nehmen. Für einen 
schnelleren Start kann mit derselben 
Syntax wie oben, aber mit dem Zusatz 
/C (also NZCOM NZCOM IC) das Sy¬ 
stem als NZCOM.ZCI geclont wer¬ 
den, das heißt, der Speicherinhalt wird 
in kompakter Form als Ganzes auf Dis¬ 
kette geschrieben. Solche “Clones“ 
sind aber auf eine Systemgröße fixiert. 
NZCOM dagegen erlaubt ebenso wie 
Z3PLUS ein dynamisches Nachladen 
von verschieden großen ZCPR-Pake- 
ten und damit unterschiedlich großer 
TPAs mit der Syntax “Z3PLUS 
SMALL“ oder “Z3PLUS LARGE“. 
Hat man die Dateien auf die eigenen 
Verhältnisse optimiert, kann man die 
neuen Dateien mit NZCOM.??? bzw. 
DEFAULT.??? als Stammnamen um¬ 
benennen. Diese werden in der jeweili¬ 
gen ZCPR-Library abgelegt, beim 


Start automatisch geladen und führen 
ein Auto-Start-Programm aus. 

Die ursprüngliche Z3PLUS.LBR (Ko¬ 
pie!) sollte gelöscht werden. Die DE¬ 
FAULT.??? werden in eine neuen 
Z3PLUS-Library eingebracht mit: 
LPUT Z3PLUS DEFAULT.* 
Alsdann erzeugt man eine Auto- 
Start-Datei STARTZ3P.COM mit dem 
SALIAS-Editor. Dessen Befehle ent¬ 
sprechen Wordstar. Es wird eine einfa¬ 
che Folge von gültigen CP/M- oder 
ZCPR-Kommandos als Textzeilenfol¬ 
ge eingegeben. Daraus macht SALIAS 
ein COM-File, das beim Start von 
Z3PLUS gesucht und ausgeführt wird. 
Mit EDITNDR werden die benannten 
Directories erstellt (bei NZCOM per 
Voreinstellung 21, bei Z3PLUS 14 Na¬ 
men). Diese Namen werden mit 
SAVENDR DEFAULT (Z3PLUS) ge¬ 
speichert und können entweder einzeln 
geladen (“Z3PLUS DEFAULT.NDR“) 
oder in die Z-Library abgelegt werden. 
Auch mehrere Namen-Dateien können 
nachgeladen werden. So kann man auf 
jeder Diskette die Bezeichnungen der 
einzelnen User in einem USER.NDR 
ablegen und beim Einloggen laden las¬ 
sen. Bei Festplatten ist diese Anwen¬ 
dung geradezu fantastisch. Ein Such¬ 
pfad mit bis zu fünf Elementen (letzter 
muß Home-Directory sein) ermöglicht 
den wahlfreien Zugriff auf Utilities aus 
allen Laufwerken oder User-Berei¬ 
chen. Man kann auch direkt Dateien 
unter Angabe des Laufwerks und Users 
(“B14:VDE Test.txt“) oder über den 
zugewiesenen Namen aufrufen: 
(“ED:VDE Test.txt“). Die Anzeige 
beim Wechsel sieht etwa so aus: 
AO:RÖOT>ED: 

B14:ED> 

Gleichzeitig kann man über den Such¬ 
pfad auf die anderen Directories zuge¬ 
griffen werden. 

Datenschutz wie unter UNIX 

Auch die Sicherheit von UNIX-Syste- 
men ist hier realisierbar. Dateien und 
User-Bereiche können mit einem Paß¬ 
wort gegen unerlaubten Zugriff ge¬ 
schützt werden, ganz zu schweigen von 
der Tatsache, daß es noch immer kein 
CP/M-Virus gibt! ZCPR erhält natür¬ 
lich auch dadurch erhöhte Daseinsbe¬ 
rechtigung, daß in den Staaten nahezu 
alle Z80-Programmierer auf ZCPR 
eingeschwenkt sind. Dabei kenne ich 
allein etwa 30 MByte (!) neuer Public- 
Domain-Software, die nach dem 1. Ja¬ 
nuar 1988 geschrieben wurde. Ein Teil 
davon steht eingetragenen Usern in der 
"CPM-ZCPR“ SIG der NBBS, der 


Eine Installation ist auch nur bei ei¬ 
ner TPA-Größe von mindestens 48 
kByte sinnvoll. Für die CPCs mit 
Dobbertin CP/M 2.2 (63 kByte) 
kann die Münchner Schneider/Am- 
strad CPC User Group (SCUG) bei 
der Anpassung Hilfestellung leisten. 
Dort gibt es auch - für das CP/M 
mit der Dobbertin-Erweiterung — 
ein ZCPR33-Public-Domain-Sy- 
stem weitgehend fertig angepaßt. 
Die Auto-Install-Versionen wurden 
auf folgenden Rechnern getestet: 
Amstrad CPC. Amstrad PCW , 
NDR-Computer, PROF-80, TA- 
TUNG, Kontron, Spectra-Video, 
Oettle & Reicher, SANYO MBC 
1160 und vielen anderen. 


Mailbox der Nord Computer GmbH, 
Ismaning, zum Download zur Verfü¬ 
gung. Dort werden auch Fragen und 
Antworten zum ZCPR, zu Fragen über 
HD64180 und Z 280 ausgetauscht. Seit 
einigen Monaten existiert eine Beta- 
Version des SMALL-C mit einer Li¬ 
brary für ZCPR-Systeme. Auch Word¬ 
star 4.0 (CP/M-Version) wurde in Zu¬ 
sammenarbeit mit den ZCPR-Pro- 
grammieren erarbeitet. Daher können 
benannte Directories und SHELL-Ab- 
läufe mit Wordstar 4.0 voll genutzt 
werden. Hierbei fällt auch die Tatsache 
angenehm auf, daß ZCPR-Systeme die 
Terminal-Steuerzeichen an die ablau¬ 
fenden Programme weitergeben. Die 
bisher notwendigen mühsamen Instal¬ 
lationen sind damit passe. Ein ZCPR- 
fähiges Programm holt sich seine Vi¬ 
deo-Information direkt aus dem Envi- 
ronment-Descriptor, einer Umge¬ 
bungsbeschreibung, die man auch von 
UNIX übernommen hat. Auch für das 
aus USA erhältliche Turbo Pascal 
3.01a gibt es Patches, um damit gene¬ 
rierte Programme ZCPR-fähig zu ma¬ 
chen. Bleibt abzuwarten, wie viele 
deutsche Programmierer auf den neuen 
Kurs hier in Deutschland einschwen¬ 
ken. Bisher sind es jedenfalls schon 
über 20 gute Leute, abgesehen von den 
Leuten der recht aktiven MTX-User 
Group (zirka 140 Mitglieder), die seit 
über zwei Jahren ZCPR2 als CCP-Er- 
satz und P2DOS als BDOS-Ersatz 
“fahren“. Dort steigt man jetzt auf 
ZCPR 3.3 und auf ein aufgebohrtes 
P2DOS um. 


(Helmut Jungkunz/cd) 


6/7’90 PC 17 



I—Bericht 


Der CPC der Zukunft 

This crazy little thing... 

Kennen Sie auch diese Sprüche von den PC-Usern: “Mein 16-MHz-AT hat 
VGA und ein Tower-Gehäuse!“ Oder: “Ich habe die Maus, die nicht nur 
kompatibel ist!“ Und kommen Sie sich auch so blöd vor, wenn Sie dann 
antworten müssen “Mein CPC hat ein Diskettenlaufwerk und einen Grün¬ 
monitor!“? Wenn ja, dann ist dieser Artikel genauso etwas für Sie wie für 
alle die Leute, die auf extravagante Ausstattung oder Power-Peripherie 
stehen. 


Speziell für Sie haben wir drei völlig 
neue CPC-Konzeptionen erarbeitet, 
mit denen Sie sowohl Ihren Drang nach 
Individualismus als auch die immer¬ 
währende Suche nach dem Satz 'Mein 
Computer hat... ’ vorerst einmal befrie¬ 
digen sollen. 

1. Der Tower-CPC 

Dieses Modell ist besonders für Ge¬ 
schäftsleute, Power-User und Neurei¬ 
che geeignet. 

Ausstattung: 

^Big-Tower-Gehäuse mit Speed-Dis¬ 
play (nach Landmark) 
<>3-Zoll-Laufwerk 
05,25-Zoll-Laufwerk 
^Festplatte (20 MByte) 
OCPC-6128-Board mit 512-kByte- 
Speichererweiterung 
OMF-02-kompatible Tastatur 
OMaus 

OMultisync-Monitor mit 60 Hz Bild¬ 
wiederholfrequenz 
^serielle (RS232C) Schnittstelle 
^parallele (8!-Bit-Centronics) Schnitt¬ 
stelle 

Software: 

OCP/M 
0 Wordstar 
OCEUS-Desktop 

2. Der Laptop-CPC 

Er ist die ideale Ausrüstung für Ge¬ 
schäftsleute (als Zweitrechner, siehe 
oben), Reisende und Redakteure von 
Computerzeitschri ften. 

Die Ausstattung: 

OCPC-6128-Board mit Z80CM-CMOS- 
Prozessor 
03-Zoll-Floppy 
OModem 

OLaptop-Gehäuse mit LC-Display 
(netzunabhängiger Betrieb!) 
0464-Tastatur ohne Ziffernblock aber 
mit Cursortasten und integriertem 
Trackball 

Zusätzlich ist er mit einer seriellen, ei¬ 
ner parallelen und einer Floppy- 


Schnittstelle ausgerüstet, externer Mo¬ 
nitor, Stromversorgung (Akku-Laden 
im Hintergrund), Tastatur (MF-02), 
Maus und Joystick lassen sich selbst¬ 
verständlich ebenfalls anschließen. 

Software: 

OConText und Kermit 

3. Der Number-Cruncher-CPC 

Hierbei handelt es sich um die Spezial¬ 
version für wissenschaftliche oder 
technische Anwendungen. 

Ausstattung: 

OCPC-6128 (8 MHz) mit Coprozessor 

OSpeichererweiterung 

^Festplatte 

Oserielle und parallele Schnittstelle 
OAnalogeingang 

Software: 

Apfelmännchen 

OFunktionsplotter 

OCAD-System (zusätzlicher Plotter er¬ 
forderlich) 

Mal ernsthaft 

Hat da gerade jemand 'Alles Spinnerei' 
gesagt? Keineswegs. Natürlich, diese 
Modelle sind (bis jetzt) im Handel noch 
nicht erhältlich. Wir können Ihnen je¬ 
doch durchaus praxisorientierte Tips 
zur Realisierung präsentieren. 

CPC professionell, ... 

Beginnen wir mit Modell 1. Wo liegen 
die Probleme? Zuerst, die Hauptplatine 
aus dem CPC-Gehäuse aus und in einen 
Tower einzubauen dürfte eigentlich 
kein Problem sein; der hat auch gleich 
eine schöne Stromversorgung. Multi- 
sync-Monitor anschließen ist kein Pro¬ 
blem, man muß sich nur ein Kabel ba¬ 
steln. Das geht aber nicht bei allen Mo¬ 
nitoren; manche kommen mit dem 
Composite-Sync-Signal nicht klar. Das 
Speed-Display ist eingebaut und wird 
per Dip-Schalter konfiguriert (haben 
Sie etwa gedacht, das würde ständig 
GEMESSEN?). Die Bild wiederhol fre¬ 


quenz läßt sich durch eine Steckbrücke 
auf der Hauptplatine einstellen (vgl. 
frühere Ausgaben von PC-Internatio¬ 
nal), und die Centronics-Schnittstelle 
läßt sich ebenfalls aufrüsten. Speicher¬ 
weiterung, 5,25-Zoll-Laufwerk, Fest¬ 
platte, Maus und RS232C gibt’s schon, 
und für die Tastatur muß man sich halt 
einen Adapter basteln, der die seriellen 
PC-Signale in die CPC-Tastaturmatrix 
umwandelt. Die Software ist bereits 
verfügbar. 

...CPC tragbar... 

Ein bißchen schwieriger gestaltet sich 
das Ganze beim Laptop, was in erster 
Linie daran liegt, daß dessen Gehäuse 
etwas schwer zu bekommen sein dürf¬ 
te. Unser Vorschlag: Man nehme einen 
Billig-Laptop (PC) aus Taiwan-Pro¬ 
duktion, entledige sich des Boards 
(Achtung: Sondermüll!) und baue den 
CPC ein. Außerdem muß man sich eine 
Ansteuerlogik für das LC-Display bau¬ 
en, dafür sind diese aber inzwischen 
auch schon mit 640x200 Punkten in 
Farbe zu haben; damit hätte der CPC- 
Laptop eine bessere Bildschirmdarstel¬ 
lung als das Standardmodell mit dem 
Amstrad-Schummermonitor. Den 
CMOS-Prozessor gibt’s ebenso wie 
CPC-Trackballs und -Modems; die Ta¬ 
statur muß man sich halt ein bißchen 
zusammensägen. Ein weiteres Problem 
dürfte bei diesem Modell die Stromver¬ 
sorgung aufwerfen. Hier bietet sich ein 
Akku-Satz, wie er für Videorecorder 
verwendet wird, in Verbindung mit ei¬ 
nem entsprechenden Ladegerät an. 
Auch hier ist die Software verfügbar. 

...und CPC schnell 

Eine besonders anspruchsvolle Aufga¬ 
be wäre der Number-Cruncher. Die 



Bild I: CPC-Power im Tower - nur wenig fehlt 
zur Cray! 
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Bild 2: Für die, die sich nie von ihm trennen können, ist der Laptop-CPC Bild3: Als unentbehrlich in Wissenschaft und Forschung gilt in Zukunft der 
gedacht Number-Cruncher 


Taktfrequenzerhöhung auf 8 MHz ist 
prinzipiell möglich, indem man die alte 
Verbindung zwischen Prozessortakt 
und dem entsprechenden Pin am Gate- 
Array auftrennt und sich den 16-MHz- 
Takt des Quarz-Taktgebers mit einem 
Flipflop selbst herunterteilt. Den Z80A 
im CPC sollte man gegen einen Z80H 
austauschen. Zumindest bei mir gibt es 
da aber manchmal Probleme mit der 
Adreßcodierung. Das muß aber nicht 
bei allen CPCs so sein; laut Schaltplan 
gibt es dafür keinen Grund, und mein 
CPC ist sehr alt (erste 464-Serie). Au¬ 
ßerdem hat er sich schon in anderen 
Punkten als abweichend erwiesen. 

Noch umständlicher dürfte sich die In¬ 
stallation eines Coprozessors gestalten. 
Auch wenn es, Gerüchten zufolge, ein 
solches Modell zum Z80 geben soll, so 
ist doch im CPC keinerlei Logik zum 
Ansprechen eines solchen Bauteils vor¬ 
handen. Man müßte also einen entspre¬ 
chenden Adapter für den Expansion- 
Port bauen. Der Analogeingang ist 
ebenfalls nicht ganz üblich, kann aber 
durchaus über einen AD/DA- 
Wandler realisiert werden. Für niedri¬ 
ge Anforderungen reicht eventuell 
auch der Port für den Kassettenrecor¬ 
der oder die mit I/O (Input/Output) ge¬ 
kennzeichnete Buchse am CPC, auch 
wenn bis heute noch niemand heraus¬ 
gefunden hat, wie denn bitte schön das 
I von I/O softwaremäßig ausgelesen 
werden kann. Hat da Amstrad etwa et¬ 
was zu hoch gestapelt? Im Schaltplan 
ist jedenfalls von einer Eingabemög¬ 
lichkeit nicht die Rede, da heißt das 
Ding nur noch Stereo Sound Connec- 
tor, und am IC steht dann sogar bloß 
STEREO OUT; Eingabekanäle sind 
hier schlichtweg inexistent. 

Die Software gibt’s auch hier (sogar 
CAD-Programme), nur mit der Plot¬ 
terunterstützung hapert’s ein bißchen. 


Und der Preis? 

Sollte sich jetzt jemand gefragt haben, 
warum denn nun eigentlich noch nie¬ 
mand diese Computer gebaut hat, so 
gibt es eine einfache Antwort: Es ist zu 
teuer! Die für diesen Ausbau erforder¬ 
lichen Peripheriegeräte sind in ihrem 
Preis der Leistung des CPC-Compu- 
ters einfach nicht mehr angemessen. So 
ergäbe sich dann (jeweils ohne Soft¬ 
ware): 

Modell 1: 


CPC 6128 

798,- 

Speichererweiterung 512 kByte 

419.- 

5,25-Zolt-ZweiiIaufwerk 

298,-- 

Big- Tower-Gehäuse 

598. - 

Multisync-Monitor 

1298. - 

Monitorkabel 

10,- 

MF-02-Tastatur 

99.- 

Tastatur-Adapter 

50,- 

Festplatte 20 MIhte 

1298. - 

Maus 

149,- 

RS232C 

179.- 

Gesamt 

5196.- 


Dafür gibt’s heute schon einen ver¬ 
gleichbaren AT-Kompatiblen. 


Modell 2: 


CPC 6128 

798.- 

7.80 CM 

5,98 

Mt idem 

500,- 

Trackball 

2a). - 

RS232C 

179- 

LCD (monochrom 640x200) 

498,- 

Akku-Satz 

119,- 

Akku-Lader 

79.50 

lMptop-Gehiiu.se 

600,- 

Gesamt 

2979,49 


Im Vergleich zum Tower ist dieser 
Preis noch relativ gering, was aber in 
erster Linie auf die zusätzliche Fest¬ 
platte und den Multisync-Monitor zu¬ 
rückzuführen ist. Außerdem ist das Ge¬ 


häuse nicht gerade einfach zu bekom¬ 
men, und der Akku-Satz dürfte auch 
nicht unbedingt sehr lange halten. Die 
Preise für den Number-Cruncher dürf¬ 
ten nicht so ohne weiteres zu bekom¬ 
men sein. 

Und andersrum? 

Diese Modelle sind nun also im Preis 
etwas unangemessen, aber was ein 
richtiger Freak ist, der dürfte sich da¬ 
von eigentlich nicht abschrecken 
lassen. 

Egal! Es geht nämlich auch umgekehrt. 
Statt den CPC einem PC immer ähnli¬ 
cher zu machen, kann man nämlich den 
CPC auch auf einem PC emulieren. 
Der CPC-Emulator auf dem PC würde 
mit einem Z80-Emulator (gibt’s 
schon!), der um die Grafik, die Disket¬ 
tenverwaltung, die Tastaturabfrage 
und die Banking-Logik für die ROMs 
erweitert wird, arbeiten. 

Man brauchte dann nur noch den Inhalt 
der CPC-ROMs auszulesen und in ei¬ 
nen entsprechenden Bereich (ein eige¬ 
nes Datensegment?) des PC-Speichers 
zu kopieren. Fertig ist der CPC-Emu- 
lator mit 12 MHz (Landmark; auf 
33MHz-486ern). 

Das alles beweist doch immerhin, wie 
entwicklungsfähig ein System wie der 
CPC auch nach sechs Jahren noch ist. 
Wenn jemand das dringende Bedürfnis 
verspürt, eines der genannten Modelle 
zu bauen, so wollen wir ihn nicht da¬ 
von abhalten. 

Außerdem dürfte die existentielle Fra¬ 
ge der CeBIT '90 (Was kommt nach 
dem 486er?) hiermit beantwortet sein: 
Was anderes als der neue CPC? 

(Jörg Schwicder/jf) 
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Beim CEUS, eine 
CPC-Benutzeroberfläche 

Teil 4: Die Bildschirm¬ 
steuerung 

Diese Folge unserer Serie über die Programmierung 
grafischer Benutzeroberflächen auf dem CPC beschäf¬ 
tigt sich eigens mit den sogenannten Icons, die zu 
Unrecht häufig mit jenen religiösen Kunstwerken 
verwechselt werden (ein Menü hat schließlich auch nur 
selten mit dem Essen zu tun). 



So, die Windows hätten wir ja jetzt, 
aber das ist ja längst noch nicht alles. 
Erinnern wir uns an die erste Folge: Da 
stand über grafische Benutzeroberflä¬ 
chen, daß sie versuchen, einem einen 
'normalen’ Schreibtisch so originalge¬ 
treu wie möglich nachzubilden. Das 
Papier (die Windows) hätten wir ja be¬ 
reits (damit wären wir dem Traum vom 
papierlosen Büro schon wesentlich nä¬ 
her gekommen), aber es fehlen da noch 
sehr wichtige Dinge. 

Anvisieren und “feuern“ 

Zuerst wäre da einmal die Hand, mit 
der man nach einem Gegenstand grei¬ 
fen kann. Diese Hand wird (um das 
Ganze zu vereinfachen - manche Be¬ 
nutzeroberflächen verwenden wirklich 
stilisierte Hände) bei uns durch einen 
Pfeil symbolisiert. Dieser Pfeil kann 
nun vom Benutzer auf dem Bildschirm 
herumbewegt werden, ungefähr so, 
wie man mit dem Finger über einer 
Schreibmaschinentastatur herumfährt: 
kreisen und zustoßen. Gesteuert wird 
der Pfeil normalerweise von einer 
Maus. Da die wenigsten CPC-Besitzer 
eine solche haben, läßt sich unser Pfeil 
auch mit den Cursortasten oder dem 
Joystick bewegen. Sobald man nun das 
gewünschte Ziel auf dem Bildschirm 
erreicht hat, wird dem Computer die 
gewünschte Auswahl deutlich ge¬ 
macht. In unserem Fall geschieht das 
durch Drücken von Teuer’ oder 
’Copy’. Ist dies geschehen, sollten die 
Koordinaten der Pfeilspitze an den Be¬ 
nutzer zurückgegeben werden. Fertig. 
Für diese Aufgabe ist ein Befehl na¬ 
mens ICURSOR zuständig, der den 
Cursor darstellt und die Tastatur ab¬ 
fragt. Parameter gibt es keine, die 
Koordinatenübergabe erfolgt - etwas 
ungewöhnlich aber ungemein praktisch 
- über die Koordinaten des Grafikcur¬ 
sors, das heißt, man kann den Pfeil mit 


’MOVE X,Y’ an 
eine beliebige Stel¬ 
le setzen und seine 
Position hinterher 
über ’XPOS’ und 
’YPOS’ abfragen. 

Dadurch ist es zum 
Beispiel auch ohne 
große Probleme 
möglich, den Cur¬ 
sor eines Grafik¬ 
programms mit 
dieser Routine zu 
steuern. 

Pfeilschnell 

Nach dem Aufruf 
des Befehls wer¬ 
den zuerst die 
Bildschirmkoordi¬ 
naten mit Hilfe der Origin-Werte in phy¬ 
sikalische Koordinaten umgerechnet. 
Danach wird der Cursor zuerst einmal 
dargestellt. Die Darstellung ist überhaupt 
das größte Problem der Routine, denn sie 
muß... a)...schnell, b)...möglichst kurz 
(siehe Speicher) und c)...für alle Bild¬ 
schirmmodi geeignet sein. Um das Pro¬ 
blem nicht übermäßig aufzublasen, wur¬ 
de eine acht Byte große Matrix für den 
Pfeil verwendet, das heißt, der Pfeil ist 
in jedem Modus ein Byte breit und acht 
Byte hoch. Das führt dazu, daß der Pfeil 
im Mode 2 acht Pixel, im Mode 1 vier 
Pixel und im Mode 0 nur zwei Pixel breit 
ist. Aus diesem Grund müssen im Mode 
0 Abstriche am Aussehen des Pfeils ge¬ 
macht werden, aber den Sinn und Unsinn 
der Programmierung einer Benutzer¬ 
oberfläche im Mode 0 haben wir ja an 
anderer Stelle in dieser Serie bereits be¬ 
sprochen. Die Darstellung des Cursors 
erfolgt durch einfaches Invertieren der 
entsprechenden Bildpunkte. Das hat den 
Vorteil, daß der Cursor immer sichtbar 
ist und er durch einfaches Wiederholen 
des Vorgangs wieder abgebaut werden 


kann. Sobald der Pfeil einmal dargestellt 
ist, folgt der nächste Teil: die Tastatur¬ 
abfrage und Koordinatenkorrektur am 
Cursor. Die Tastaturabfragc geschieht in 
einer gesonderten Unterroutine. Wird 
eine Taste als gedrückt erkannt, baut sich 
der Cursor zunächst wieder ab und kor¬ 
rigiert danach die Koordinaten. 

Beschleunigen wie ein Ferrari 

Diese Koordinatenkorrektur ist dann 
auch gleich das nächste Problem: Der 
Cursor sollte zwar einerseits relativ ge¬ 
nau sein, um einen Punkt sicher treffen 
zu können, andererseits sollte er auch 
nicht wie eine Schildkröte mit Reifen¬ 
panne über den Bildschirm kriechen. Die 
Lösung für dieses Problem liegt in der 
sogenannten dynamischen Auflösung - 
auch bekannt als beschleunigte Bewe¬ 
gung des Cursors. Das Prinzip ist ganz 
einfach: Man geht hin und beginnt mit ei¬ 
ner Auflösung von zum Beispiel 2 Punk¬ 
ten (kann auch reduziert werden; siehe 
Listing). ln diesem Modus ist es durch¬ 
aus noch möglich, kleinere Bildaus- 
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ICURSOR 

Stellt einen pfeilförmigen Cursor auf 
dem Bildschirm dar, der mit Joystick 
oder Cursortasten/Copy gesteuert wer¬ 
den kann. Koordinatenübergabe er¬ 
folgt über die Grafik-Cursor-Koordi- 
naten (mit MOVE, beziehungsweise 
XPOS und YPOS) 
IDEFICON,num,ic$ 

Definiert das Icon mit der Nummer 
num über den String ic$ 
( = chr$(bte 1) + chr$(bte2)...). 

(num ist Zahl zwischen 0 und 255, ic$ 
ist ein String mit der maximalen Län¬ 
ge 144.) 

IICON,x,y,num 

Stellt das Icon mit der Nummer num an 
der Stelle X, Y auf dem Bildschirm dar. 
(x,y sind Bildschirmkoordinaten im 
Bereich 0/0 bis 640/400.) 
IGETICON,@num% 

Fragt mit dem Cursor die auf dem Bild¬ 
schirm dargestellten Icons ab und gibt 
in num% eine Iconnummer zurück. 
IFILL,bte 

Füllt den Bildschirmspeicher mit dem 
Wert bte (bte ist ein Byte, Wert zwi¬ 
schen 0 und 255.) 


Tabelle: Die Befehle der Bildschirmsteuemng 

schnitte gezielt anzufahren. Hält man 
nun eine Taste gedrückt, so wird die 
Schrittweite des Cursors bei jedem 
Durchlauf um zwei Punkte erhöht, beim 
zweiten Mal springt er dann also schon 
vier Punkte weit, beim dritten Mal sechs 
und so weiter. Läßt man die Taste wie¬ 
der los, so wird der Zähler zurückge¬ 
setzt, und man hat wieder die hohe Auf¬ 
lösung vom Beginn. Durch diesen Kom¬ 
promiß ist es möglich, einerseits ziem¬ 
lich genau zu arbeiten und andererseits 
doch ziemlich schnell größere Strecken 
zurückzulegen. Wenn nun FEUER oder 
COPY gedrückt wurde, werden die 
Koordinaten wieder in den ursprüngli¬ 
chen Bereich gesetzt (über die Origin- 
Koordinaten) und der Tastaturpuffer ge¬ 
leert. 

Mögen Sic Kunst? 

Der zweite Teil der Bildschirmsteuerung 
handelt von den sogenannten Icons. Das 
sind kleine 'Bildchen' (in unserem Fall 
6x24 Byte, also 48x48 logische Pixel 
groß), die eine bestimmte Funktion oder 
einen Gegenstand repräsentieren. Sie 
werden zum Beispiel dazu verwendet, 
die Einträge eines Directories auf dem 
Bildschirm grafisch darzustellen oder 
verschiedene Unterprogramme zu reprä¬ 
sentieren (siehe erste Folge). Definiert 
werden diese Icons mit dem Befehl 


IDEFICON,num,@ic$, wobei num eine 
Zahl zwischen 0 und 255 und ic$ ein 
String mit einer Länge von bis zu 144 
Byte sein müssen, num ist die Nummer 
des Icons, sie wird für alle Befehle ver¬ 
wendet, ic$ enthält das Icon selbst bezie¬ 
hungsweise einen Teil des Icons. Der In¬ 
halt von ic$ ist dabei modusabhängig und 
setzt sich folgendermaßen zusammen: 
Der String beginnt mit dem linken obe¬ 
ren Byte des Icons, dann folgt das rechts 
davon gelegene und so weiter Zeile für 
Zeile nach dem Schema ic$= chr$ 
(btel) + chr$(bte2) ... +chr$(bte). Ist 
die Länge von ic$ kleiner als 144 (die 
Maximalgröße), so wird nur dieser Teil 
des Icons definiert. Man kann dies auch 
dazu verwenden, um nur die ersten paar 
Zeilen eines bereits definierten Icons um¬ 
zudefinieren. Ist ein Icon noch nicht de¬ 
finiert, so wird wie bei IWINDOW.IN 
ein neuer Speicherbereich über GET- 
MEM belegt. Damit ergibt sich ein neues 
Problem für unsere MEMFRE-Routine, 
die daher nochmals um einen Block zur 
Behandlung der Icons erweitert werden 
muß. 

Video - ich sehe! 

Wenn wir unsere Icons jetzt definiert ha¬ 
ben, wollen wir sie ja auch darstellen. 
Dazu ist der Befehl IICON,x,y ,num da, 
der nichts anderes tut, als das Icon mit 
der Nummer num einfach an den Koor¬ 
dinaten X, Y darzustellen (die Koordina¬ 
ten geben die Position der linken oberen 
Ecke an und werden auf ganze Byte- 
Werte gerundet). 

ACHTUNG: 

Der Hintergrund hinter einem Icon 

wird nicht gerettet! 


Man kann übrigens dasselbe Icon durch¬ 
aus an zwei verschiedenen Stellen des 
Bildschirms dar¬ 
stellen, bei jeder 
Darstellung eines 
Icons wird jedoch 
einer der 255 zur 
Verfügung stehen¬ 
den Plätze reser¬ 
viert, die Icon-Flut 
ist also nicht unend- 
lich. Braucht man 
einmal keins mehr, 
so kann diese Ta¬ 
belle durch einen 
MODE-Befehl zu¬ 
rückgesetzt wer¬ 
den. Dieser erhält 
dazu einen Patch, 
durch den der Zäh¬ 
ler für die Anzahl 


der dargestellten Icons einfach auf 0 ge¬ 
setzt wird. 

Aber bitte mit Sahne 

So, nun haben wir Icons definiert und 
dargestellt, was fehlt, ist die Icon-Abfra¬ 
ge. Sie ist im Prinzip wieder wirklich 
einfach. Der Befehl 

IGETICON,@num% 
ruft die Routine ICURSOR auf und wer¬ 
tet nach deren Beendigung die zurückge¬ 
lieferten Koordinaten aus. Befindet sich 
der Cursor auf einem dargestellten Icon, 
dann wird dessen Nummer in der Varia¬ 
blen num% zurückgegeben, ansonsten 
geht es zur Cursorroutine zurück. Zu¬ 
letzt enthält die Bildschirmsteuerung 
noch den Befehl 

IFILL.bte, 

der einfach den ganzen Bildschirmspei¬ 
cher mit dem Wert bte vollschreibt; da¬ 
mit lassen sich ziemlich einfach Hinter¬ 
grundmuster definieren. Das war es dann 
schon wieder für dieses Mal. In der näch¬ 
sten Folge folgt dann der Rest, also Me¬ 
nüs, Alertboxen und die Softwareuhr. 
Damit bis dahin niemand an Langewei¬ 
le stirbt (kann ich mir bei DEN Assem- 
blerlistings allerdings nicht vorstellen), 
gibt’s auch diesmal wieder einen Tip 
zum Seiberprogrammieren: Wie wär’s 
mit einer Routine, die neben den Icons 
auch geöffnete Fenster berücksichtigt, 
und die Nummer des Fensters, über dem 
sich der Cursor befindet, zurückgibt? 
Man könnte sie beispielsweise durch 
Nummern (über ’255’) von den Icons un¬ 
terscheiden (01 ins High-Byte der Inte¬ 
gervariable schreiben). Dafür gäbe es si¬ 
cherlich eine Menge sinnvoller Anwen¬ 
dungen, zum Beispiel in Verbindung mit 
dem POP-Befehl, und so unheimlich 
schwer ist das eigentlich nicht. 


(Jörg Schwieder/jf) 
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Umleitung ' 


Einen Moment mal/ 

Interrupt-Kursus für den CPC 

In der zweiten Folge des Interrupt-Kurses wollen wir zunächst noch auf die 
Befehle DI, EI und REMAIN eingehen, die in der letzten Folge otfen gelas¬ 
sen wurden. Anschließend wollen wir auf die Probleme und Besondei heiten 
eingehen, die sich beim gleichzeitigen Einsetzen mehrerer Interrupts ver¬ 
schiedener Prioritäten ergeben. 


Die Befehle DI und EI 

In Zeile 120 des Beispielprogramms 
für die Befehle EVERY, DI, EI und 
REMAIN aus der letzten Folge stehen 
jetzt gleich zwei Befehle, auf die wir 
unser Augenmerk richten wollen, näm¬ 
lich DI und EI. 

DI ist die Abkürzung für “Disables In¬ 
terrupts“, was soviel wie “Interrupts 
untauglich machen“ bedeutet, also das 
Abschalten aller BASIC-Interrupts. EI 
(Enables Interrupts) hingegen macht 
einen DI-Befehl wieder rückgängig 
und läßt alle Interrupts erneut zu. Die 
Verkettung der beiden Befehle (wie in 
Zeile 120) sorgt nun dafür, daß der 
Programmteil, der dazwischen steht, 
immer ohne Unterbrechung eines 
BASIC-Interrupts ausgeführt werden 
kann. 

Dieses ist in unserem Programmbei¬ 
spiel unbedingt notwendig, da der be¬ 
sagte Programmteil die Darstellung des 
Raumschiffes übernimmt. Dazu muß 
die Schreibfarbe geändert, die Position 
mit LOCATE festgelegt und der ent¬ 
sprechende CHR$ ausgegeben wer¬ 
den. Würde nun das Unterprogramm, 


welches den Bildschirm scrollt und die 
Ausgabe der Meteoriten steuert, genau 
an dieser Stelle einsetzen, träten Fehler 
bei der Färbung der Meteoriten und der 
Positionierung des Raumschiffes auf. 
Es steht dem Leser natürlich frei, die 
beiden Befehle aus dem Programm zu 
entfernen und sich das Resultat selbst 
einmal anzusehen. 

Der REMAIN-Befehl 

Zunächst wieder einmal die Syntax: 
REMAIN (Prioritätsstufe) 

Der Befehl REMAIN gibt die Restzeit 
in 1/50 Sekunden an, die bis zum näch¬ 
sten Aufruf des Interrupt-Unterpro¬ 
gramms der angegebenen Prioritätsstu¬ 
fe verstreichen würde, und schaltet 
eben diesen Interrupt aus. 

REMAIN ist eine Möglichkeit, einen 
einzelnen Interrupt endgültig abzu¬ 
schalten (er läßt sich zum Beispiel auch 
nicht mit EI wieder zulassen). Bei der 
Anwendung dieses Befehls ist aber zu 
beachten, daß REMAIN kein Befehl im 
herkömmlichen Sinne ist, sondern in 
seiner Funktion eher einer Variablen 


nahekommt, die man nur lesen kann. 

Er muß somit immer mit einem ande¬ 
ren Befehl verknüpft eingesetzt wer¬ 
den, wie zum Beispiel PRIN'l RE¬ 
MAIN () oder A = REMAIN (). 
ln unserem Fall löscht der REMAIN- 
Befehl den Scroll-Interrupt, da anson¬ 
sten die Explosion in Einzelstücken 
weiterscrollen würde. Auch hier emp¬ 
fiehlt es sich, den Befehl probeweise 
aussetzen zu lassen. Um eine Reihe 
von Interrupts gleichzeitig auszuschal¬ 
ten, lassen sich mehrere REMAIN-Be- 
fehle in einer Operation miteinander 
verketten (A = REMAIN(l) = RE- 
MAIN(2)...). 

Hinweisen wollen wir noch darauf, daß 
sich auch an diesem Programm beson¬ 
ders schön das in der ersten Folge an¬ 
gesprochene “Nachholbedürfnis“ von 
Interrupts demonstrieren läßt. Halten 
Sie das Programm durch einmaliges, 
beziehungsweise verlassen Sie es 
durch mehrmaliges Drücken der 
BREAK-Taste. Nachdem einige Zeit 
verstrichen ist, fahren Sie mit dem Be¬ 
fehl CONT fort. Da das Hauptpro¬ 
gramm gar nicht mehr aufgerufen 
wird, rasen jetzt die Meteoriten unun¬ 
terbrochen über den Bildschirm, ohne 
daß das Raumschiff noch zu sehen ist. 
Um solche Mißstände zu verhindern, 
kann man in einer der ersten Zeilen die 
BREAK-Taste beispielsweise durch 
CALL &BB48 verriegeln. 

Parallel liegende Interrupts 

Nun wollen wir uns den Problemen 
widmen, die beim gleichzeitigen Ein¬ 
satz mehrerer Interrupts auftreten. 
Eine Schlüsselfunktion kommt dabei 
den vier Zeitgebern oder Prioritätsstu¬ 
fen zu. Wichtig ist vor allem, daß jeder 
Zeitgeber nur einen Interrupt zur Zeit 
steuern kann. Wenn Sie zum Beispiel 
einen EVERY-lnterrupt am Anfang ei¬ 
nes Programms auf der ersten Priori¬ 
tätsstufe einrichten, gleichzeitig jedoch 
einen weiteren Interrupt mit demselben 
Zeitgeber einbauen, wird der vorheri¬ 
ge überschrieben und somit beim In¬ 
itialisieren des zweiten wirkungslos. 
Bei mehreren Interrupts sind also ver¬ 
schiedene Prioritätsstufen zwingend 
vorgegeben. Die Interrupts verschiede¬ 
ner Prioritätsstufen werden nach einer 
bestimmten Reihenfolge abgearbeitet. 
Diese leitet sich aus der Dringlichkeits¬ 
stufe und dem Zeitintervall zwischen 
den Aufrufen her. Bei derart parallel 
liegenden Interrupts können jedoch 
leicht Wechselwirkungen auftreten. 
Das Beispielprogramm stellt verschie¬ 
dene solcher Beziehungen vor (siehe 
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Anhand von Beispie¬ 
len werden die ver¬ 
schiedenen Priori¬ 
tätsstufen veran¬ 
schaulicht 


Listing). Das abgedruckte Programm 
simuliert das Zusammenspiel mehrerer 
Interrupts durch verschiedene farbige 
Balken. Am linken Bildrand sind die 
Nummern der Zeitgeber und damit die 
Prioritäten angeführt. 

Am rechten steht das Zeitintervall, in 
1/50 Sekunden angegeben. Bei jedem 
Interrupt-Aufruf wird der entsprechen¬ 
de Balken um eine Pixelreihe verlän¬ 
gert. Sobald ein Balken die weiße Linie 


erreicht, werden alle Interrupts abge¬ 
schaltet. Im folgenden wollen wir jedes 
Beispiel im einzelnen erklären. 

Beispiel 1 

Beim ersten Beispiel haben alle Inter¬ 
rupts die gleiche Aufrufgeschwindig¬ 
keit, sie unterscheiden sich nur durch 
ihre Prioritäten. Nach dem Start bewe¬ 
gen sich nur die beiden Balken mit den 


höchsten Prioritäten, wobei der mit der 
zweithöchsten etwas zurückbleibt. Die 
anderen beiden werden völlig vernach¬ 
lässigt. 

Dieses läßt sich darauf zurückführen, 
daß der Interrupt des dringendsten 
Zeitgebers bevorzugt aufgerufen wird. 
Die Zeit zwischen zwei Aufrufen die¬ 
ses Interrupts reicht gerade dazu aus, 
sein Unterprogramm in dem vorgege¬ 
benen Zeitintervall auszuführen und 
mit geringen Verzögerungen auch das 
der nächsten Prioritätsstufe abzuarbei¬ 
ten. Die Zeit reicht jedoch nicht aus, 
um die niederen Unterprogramme zu 
erledigen. 

Daran läßt sich eine Grundregel der in¬ 
ternen Interruptverwaltung des CPC 
ersehen, nämlich daß der Computer 
erst Interrupts niederer Priorität behan¬ 
delt, wenn der zeitlich genaue Ablauf 
der höheren gewährleistet ist. Nach 
dem Abschalten aller Interrupts laufen 
verwunderlicherweise drei von vier 
Unterprogrammen weiter. 

Zuerst läuft nur der Interrupt des Zeit¬ 
gebers zwei bis zu der Marke, die der 
schnellste Interrupt erreicht hat. Dann 
laufen nacheinander und nach Priori- 


Neue Speichererweiterung für CPC 

• RAM-Erweiterung 64, 128, 256 oder 512K für alle CPCs 
Alle Versionen nachträglich aut Maximal-Verslon aufrüstbar 

• optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 

• Patchprogramm für CP/M 2,2 (63K CP/M). Endlich laufen dBase, Multiplan und Wordstar 

• Patchprogramm für CP/M Plus. CP/M Plus auch für CPC 464/664 

• resetfeste RAM-Disc (maximal 448K) für CP/M 2.2 und CP/M Plus 

• resetfeste RAM-Disc unter BASIC (nur bei EPROM-Version) 

‘ 100% kompatibel zu dk’tronics RAM-Erweiterung und Silicon-Oisc 

• Anschluß über den Expansionsport (kein Eingriff in den Rechner nötig) 

• geringe Abmessungen (mit Gehäuse: 160 x 83 x 20 mm) durchgeführter Erweiterungsbus 

RAM-Erweiterung mit Software für CP/M 2.2 und CP/M Plus auf 3"-Dlskette 
(wahlweise auch 3.5“- oder 5,25“-Diskette) 

Preise: ohne RAMs.119,- OM 64 KByte.149,- 0M 128 KByte.199,- 0M 

256 KByte.269,- 0M 512 KByte.419,- DM 

Aufpreis für zusätzliche EPROM-Sockel und Software im EPROM 49,- DM 


X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Systemlaufwerk, das anstelle eines 3“-Zweitlaufwerks am CPC 664/6128 
mit eingebautem oder am CPC 464 mit zusätzlichem 3"-Controller betrieben wird. Das X-DDOS- 
8etriebssystem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC, CP/M 2.2 und CP/M Plus. 

• Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS. 

• Es kann softwaremäßig zwischen X-DDOS und AMSDOS umgeschaltet werden. 

• Es werden Anpassungsprogramme für CP/M 2.2 und CP/M Plus mitgeliefert. 

• Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffähig. 

• Die 224-KByte EPROM-Karte hat bei installiertem X-DDOS noch eine Restkapazität von 
208 KByte. 

' Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig ist, wurde völlig auf 
einen Kopierschutz verzichtet. 

• Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden. 


X-DDOS-EPROM, Software & Beschreibung 99 ,_ DM 

224-KByte EPROM-Karte, X-DDOS, Software & Beschreibung 239,- DM 

5.25" oder 3.5‘ X-Laufwerk, 224-KByte EPROM-Karte, X-DDOS, Softw. & Beschr, 589, - DM 

5.25“ oder 3.5" X-Laufwerk, RAM-Erw. ohne RAMs, X-DDOS, Softw. & Beschr. 589,- DM 


EPROM- Karte 224 KByte für alle CPC 

' Für die EPROM-Typen 2764. -128, -256 

* ROM-Nummern 0-15 frei wählbar 

* 7 Sockel 

* Bei 27256 zwei ROM-Nummern pro Sockel 

* Durchgeführter Expansionsport 

* Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 

Fertiggerät für CPC 464/664 DM145,- Fertiggerät für CPC 6128 DM169,- 

Modul-Software auf 3"-Diskette DM 95,- 

Zubehör für EPROM-Karten 


EPROM 2764 DM 7,50 Protext EPROM DM124,- Maxam-EPROM 

EPROM 27128 DM 8,50 Promerge Plus-EPROM DM114,- Utopia 

EPROM 27256 DM11,50 X-DD0SEPR0M DM 99,- Alpha ROM 

EPROM 27512 DM 21,50 Time-ROM (batleriegepufferte Echtzeituhr) + EPROM 


DM 124- 
DM 94,- 
DM 35,- 
DM 135,- 


DOBBERTlfl 


Industrie-Elektronik GmbH 
Brahmsstraße 9, 6835 Brühl 
Telefon 062 02/71417 


Public-Domain für CPC, Joyce und C-128 

Sagenhaft preiswerte Software für Schneider-CPC und Joyce mit deutschem 
Handbuch - so machen diese Programme richtig Spaß! 


1- JRT-Pascal - vollständiges Pascal mit 64K-Strings, Overlays ... * 

2- Z80-Assemblerpaket mit Assembler, Disasscmbler, Linker und Debugger 

3- Künstliche Intelligenz - Interpreter für XLISP und E-PROLOG * 

4- C-Compiler Small-C - mit Fließkommazahlen und großen Bibliotheken * 

5- FORTH-83 - mit Assembler, Decompiler, Screcn-Editor ... 

6- CP/M-Utilities wie Dateikompressor, Diskmonitor, UNERA ... 

7- Alle Programme aus dem Großen CPC-Arbeitsbuch (nur CPC) 

8- Advcnturc Colossal Cave (Programm englisch, Anleitung deutsch) * 

9- CPC-Disk Utilities - kopiert geschützte Software (nur CPC) 

10- Bizßasic - CPC-Basic-Erweiterung (relative Datcivcrwaltung etc.) 

11- Basic-Compiler E-BASIC - CBASIC-kompalibel, viele Befehle 

12- Turbo Pascal-Programme - INLINE-Gencrator, GSX- & CPC-ROM-Grafik 

13- Alle Programme aus dem Buch Den Joyce programmieren 

14- Alle Programme aus dem Buch CPC-Dateivcrwaltung (nur CPC) 

15- YVordStar-Utilities - Fußnoten, Stichwort, Mehrspaltcndruck * 

16- dBASE-Literaturverwaltung - Bringen Sic Ihre Buchsammlung in Ordnung * 

17- C-Intcrpreter SCI - Erlernen Sic spielend die Sprache C * 

18- MacroPack/Z80 - Z80-Makroassemblcr, Spitzen-Debuggcr und Linker 

* auf dem CPC-464/664 nur mit Speichererweiterung (64K genügen). 


Der Preis? Sage und schreibe nur 30,- Mark pro Diskette inklusive Porto und 
Verpackung. Oder bestellen Sie drei beliebige Disketten für insgesamt nur 70,- 
Mark! 

Bitte geben Sic das gewünschte Diskettenformat (3 Zoll oder Vortcx-Disketten) 
an. Lieferung per Nachnahme oder Vorauskasse, ins Ausland nur per Voraus- 
kassc. 

MARTIN KOTULLA 

Kronacher Straße 7, 8500 Nürnberg 90, Telefon 09 11/30 10 49 
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tätsstufcn geordnet die bisher vernach¬ 
lässigten Unterprogramme ab und er¬ 
reichen beide eine bestimmte Marke, 
die durch den blauen Strich gekenn¬ 
zeichnet ist. Dieses sind die Auswir¬ 
kungen einer weiteren Grundregel. Sie 
besagt, daß auch nach dem Abschalten 
aller Interrupts, diejenigen, die aul- 
grund zu geringer Zeit unterdrückt 
worden sind, nachzuholen versucht 
werden. Auch hierbei werden Inter¬ 
rupts niederer Priorität und sogar das 
Hauptprogramm unterdrückt. Leider 
sind für die interne Speicherung nur die 
Zahlen bis 128 (je Zeitgeber einmal) 
vorgesehen. So erreichen in unserem 
Beispiel die beiden niedrigsten Inter¬ 
rupts nur die blaue Linie, die genau die 
obengenannte Zahl 128 kennzeichnet. 

Beispiel 2 

Der Unterschied zum ersten Beispiel 
liegt nur darin, daß das Zeitintervall 
noch einmal verkleinert wurde. Die 
Zeit reicht nun nicht einmal mehr ganz 
für den dringlichsten Interrupt aus. In 
der Zeit, in der der Balken die Endlinie 
erreicht, hätten einige Aufrufe mehr 
stattfinden müssen, als die Zeit es er¬ 
laubt hat. Die Abarbeitung des Unter¬ 
programms dauert nämlich länger als 
der Abstand zwischen zwei Interrupt- 
Aufrufen. Die so nicht ausgeführten 
Aufrufe werden aber nachgeholt, was 
sich im Überschreiten der weißen Linie 
äußert. Die anderen Interrupts holen 
nach schon bekannter Art und Weise 
ihre 128 gespeicherten Aufrufe nach. 

Beispiel 3 

Im dritten Beispiel laufen alle Inter¬ 
rupts in der gleichen Geschwindigkeit 
parallel zueinander. Das Zeitintervall 
wurde entsprechend groß gewählt, so 
daß keine Behinderungen untereinan¬ 


der auftreten. Nach einiger Zeit wer¬ 
den alle Interrupts gesperrt (DI-Befehl) 
und nach einer Pause, in der die Inter¬ 
ruptzähler jedoch weiterlaufen, wieder 
angeschaltet (EI-Befehl). Die Aufrufe, 
die in der Pause hätten stattfinden müs¬ 
sen, werden jetzt nachgeholt, wobei 
der Interrupt der jeweiligen höchsten 
Priorität als erster bearbeitet wird. 

Beispiel 4 

Das vierte Beispiel ist ähnlich aufge¬ 
baut wie das vorherige, jedoch laufen 
die vier Interrupts in verschiedenen 
Geschwindigkeiten ab. Der Interrupt 
mit der niedrigsten Priorität hat den 
schnellsten Zeitintervall und umge¬ 
kehrt, so daß bis zur Pause der nieder- 
wertigste Interrupt am häufigsten auf¬ 
gerufen wurde. Nach der Unterbre¬ 
chung, wiederum mit weiterlaufendem 
Interruptzähler, überholt der langsam¬ 
ste Interrupt den schnellsten, da er auf¬ 
grund seiner hohen Prioritätsstufe als 
erster aktualisiert wird. 

Beispiel 5 

Im letzten Beispiel haben wir alle Inter¬ 
rupts der verschiedenen Prioritätsstu¬ 
fen in verschiedenen Geschwindigkei¬ 
ten laufen lassen. Dabei zeigt sich, daß 
in diesem Fall eine Kombination aus 
der dritthöchsten Priorität und der 
zweithöchsten Geschwindigkeit die 
schnellste Bearbeitung gewährleistet. 
Bei eigenen Programmen sollte das op¬ 
timale Verhältnis aus Zeitgeber und 
Zeitintervall selbst ausprobiert wer¬ 
den. Ein weiterer Bereich, der für das 
Zusammenspiel mehrerer Interrupts 
wichtig ist, sind die Auswirkungen der 
Interrupt-Programmierung in Unter¬ 
programmen. Zuerst einmal muß man 
beachten, daß der Aufruf eines Inter¬ 


rupt-Unterprogramms Interrupts glei¬ 
cher und niederer Priorität sperrt. Da¬ 
mit ist auch gewährleistet, daß sich ein 
Interrupt nicht selbst unterbrechen 
kann, wenn das Zeitintervall für den 
Aufruf kleiner ist als die Zeit, die ein 
Interrupt-Durchlauf benötigt. Die so 
nicht ausführbaren Aufrufe werden, 
wie schon oben beschrieben, gespei¬ 
chert und nach dem Abschalten des In¬ 
terrupts nachgeholt. Schließlich sollte 
noch erwähnt werden, daß ein DI-Be¬ 
fehl im Unterprogramm alle Interrupts 
sperrt, also auch solche mit höherer 
Priorität. Das RETURN-Kommando 
hebt die Wirkung dieses Befehls jedoch 
wieder auf. Ganz zum Schluß wollen 
wir noch auf weitere Unterbrechungen 
und deren Verhältnis zu den BASIC- 
Interrupts eingehen. 

Die oberste Priorität für BASIC hat die 
Abfrage der BREAK-Taste, die, genau 
wie die weiteren systemintemen Inter¬ 
rupts, vom BASIC nicht beeinflußt 
werden kann. Die nächsten Unterbre¬ 
chungen. die jetzt schon von Interrupts 
aus der BASIC-Ebene behindert wer¬ 
den können, sind die der Tonwarte¬ 
schlange. Diese Unterbrechungen wer¬ 
den durch den Befehl: ON SQ (Kanal) 
GOSUB (Zeile) gesteuert. Diese Ton- 
Interrupts haben zwar einen unabhän¬ 
gigen Zeitgeber, dessen Prioritätsstufe 
liegt aber zu der des Zeitgebers zwei 
der BASIC-Interrupts parallel. Nur der 
Interrupt der Prioritätsstufe drei ist 
noch schneller. 

In der nächsten Folge 

- Selbstprogrammierte Interrupts 

- Einführung in die Grundlagen für 
Assembler-Interrupts 

— Interrupts in Maschinensprache 

(Jens Buri/cd) 


4:LOCATE l,t+4:PRIN 


10 REM Interruptkurs 2.1 
20 MODE 1 

30 BORGER 0:INK 0,0 
40 INK 1.26-.INK 2,11:INK 3,2 
50 DIM z(3),fl(3) 

60 FOR anz=l TO 5 
70 FOR t=0 TO 3:z(t)=0:NEXT 
80 READ wz,g(0),g(1 ) ,9(2),g(3 ) 

90 CLS 

100 FOR t=0 TO 12 STEP 
T t/4:NEXT 

110 FOR t=0 TO 12 STEP 
NT g(t/4);:NEXT 

120 IF anz < 3 THEN ORIGIN 294,0:DRAW 0,400, 
3 

130 ORIGIN 400,0:DRAW 0,400 
140 LOCATE 1,1:PRINT "Zeitg 

spielanz;TAB(33); "Gesch. 

150 DI 

GOSUB 360 
GOSUB 350 
GOSUB 340 
GOSUB 330 


[2079 ) 
[506] 

[1028] 

[2194] 

[ 786] 

[985] 

[1842] 

[1495] 

[91] 

[3005 ] 


4:LOCATE 34,t + 4:PRI [2215] 


M ;TAB(14);"Bel 


160 EVERY g(3) 

170 EVERY g(2 ) 

180 EVERY g(1) 

190 EVERY g(0) 

200 EI 

210 wz=wz-l:IF wz<>0 THEN 210 
Llsting INTERRUPT 


[2275] 

[ 1038] 
[2678] 

[84] 
[1179] 
[ 755] 

[1409] 
[1626] 
[ 86 ] 

[ 1872 ] 


220 DI:FOR w=l TO 4000:NEXT w:EI 
230 FOR w—1 TO 500:NEXT w 
240 GOSUB 410 

250 LOCATE 13,20 : PRINT " PRESS ANY KEY!! : C 
ALL &BB06 
260 NEXT anz 
270 END 

280 DATA 10,2,2,2,2 
290 DATA 10,1,1,1,1 
300 DATA 220,5,5,5,5 
310 DATA 30,3,4,5,6 
320 DATA 50,2,3,4,5 
330 DI:in=0:GOTO 370 
340 DI:1n=1:GOTO 370 
350 DI:1n=2:GOTO 370 
360 DI:1n=3 

370 ORIGIN Z(1n ) + 40,352-1n*64:DRAW 0,-20, ( 
ln M00 3 ) + 1 :z(in) = z(1n) + 2 
380 IF z(1n)=360 THEN 410 
390 RETURN 

400 REM Alle Interrupts abschalten 

410 a=REMAIN(0)=REMAIN(1)=REMAIN(2)=REMAIN 

(3) 

420 RETURN 

Listing INTERRUPT 


[1964] 

[ 875 ] 
[962] 
[3225] 

[ 559 ] 
[ 110 ] 
[500] 
[695 ] 
[312] 

[ 782 ] 

[529] 

[1594] 

[1413] 

[1672] 

[714] 

[2484] 

[953] 

[ 555 ] 

[3086] 

[3274] 

[ 555] 
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Zubehör 


extrem !! 


Easi-Art Supergraphic 

+ Trackerball.29£ 

+ StopPress.44t 

BTX-Modul CPC.248, 

Mini Office II 3*.88, 

Mini Office II Cass.49, 

StopPress Util.129, 

Dart-Scanner •_24t 

Turbo Pascal 3.0.22: 

Turbo Toolbox.10t 

Vokabeltrainer 3".4f 

Verbentrainer y.4t 

Schaltpläne CPC: — 
CPC 464/664 je .„.29, 


Arnor: - 

Prowort. 

Protext ar . 

Protext Eprom . 

MAXAM 3". 

MAXAM Eprom 


Wir haben den Alleinverti 
Wordstar 3.0 und Micro 
von Markt & Technik übe 
Sollten Sie also Interesse 
professionellen Software 
haben, dann zögern Sie I 
sich einfach an uns. 

Für dBase + Mulüplan CPC 4M /i 


Adventurea: - 

Diamant von Rabenfels (g) 
Drachenland (ty 
Reise durch die Zeit (t) 
Sherlock Holmes (g) 
Auftrag In der Bronx (g) 
Insel der Smaragde (t) 

Das Pharaonengrab (t) 

(t - text; g - Grafik; alle in 
deutsch) 

jo 3" / Kas. ...38,-/28, 
Kassetten-Software: 

Tascopy Kas./3'.39, 

Tasword Kas. / 3".69, 

Tasprint Kas. /3".39, 

Taifun Basic Comp.48, 

Mini Office II Kas.49,. 

VokabeltraJner Kas.39, 

Verbentrainer Kas.49, 


Prospell engl. 

Prospell dtsch. ... 
Van der Zalm: 
ADRESCOMP ... 
DATENREM. 


Fakturem 


FIBUPLAN 


29,80 


LAGDAT 


CTM644, 640.je ■ 

GT 64/65 .„...je ' 

Koplerprogra mme: 
Mastercopy... 


TEXTKING. 

COMFORM . 

ETATGRAF. 

FIBUCOMP. 

KALKUREM . 

PROFIREM . 

VOK/tBl. 

STAR DIVISION 
Star-Writer I. 


Supercopy 


dk ’tronics CPC: - 

für 464/664: 

Speech Synth. (ROM ...148, 
Speech Synth. (Kas.) ...98, 

Lightpen (Kas.).68, 

256 k Erweiterung.298, 

256 k Silicon Disk.298, 


Datei-Star 


FutureworkJ 


Statistic-Slar 


Stud Poker 


FlbuStar Plus CPC ..298,- 

CPC-Knüller: - 

ROMBOX CPC.118,- 

Videodigitizer CPC .. 348,- 

AMX-Maus CPC.278,- 

StopPress CPC.198,- 

St.Pr.+AMX-M.348,- 

St.Pr. - Utilities.129, 


Manie Miner 


Uhrenmodul 


Poker/17+4 


für 6128 : 

256 k Erweiterung •.298, 

256 k Silicon Disk- .......298, 

64 k Silicon Disk--128, 

Uhrenmoduh_119, 

Adapter für CPC 6128 (+).. 39, 


Flugsimulator.20,- 

Thorr 1 +2+3.je 20,- 

Spiele-Sondorpreiso: 
Kassette / Disk... 20,- / 30,- 
IllllUete anfordem lllll 


‘Paket. dBase + WcrdStar + 


Diskettenlaufwerke. 


Zubehör AMSTRAD - 

CPC: - 

MP2 (Anachl.TV) ..148,- 

MP3 (TV-Modulator).... 198,- 

CT1 (R adio-Uhrl.89,- 

Datenrekorder + Kab. 98,- 
Druckerk. 6128/464.38,- 

Traktor NL0 401.79,80 

Monitorverlängerung: 

...CPC 6128.29,80 

...CPC 464.24,50 

Blldschlrmfilter PCW..59,- 
Bildschlrmfitter CPC...49,-. 
Handbücher deutsch 
für CPC: 

...Mini Office II.29,80 

...AMX-Maus CPC ...29,80 
...StopPress CPC.... 19,80 
...dk'tronics Erw.19,80 


Auftragsbearbeitung 

für PC: - 

Adrese ■ Lager • Faktura • 
Bücher ■ Schallplatten • 
Zeitschriften 
dBase-Kompatlbel I 
Komplett auf 7 Disketten mit 
dtsch. Handbuch II 
auf 5,25’-Disk. ....nur 48,- 
auf 3,5"-Dlsk..nur 98,- 

Star-Dl VISION : - 

StarWrlter 5.0_ 998,- 

Laaer Star 1.0.498,- 

Star Manager 2.0 ....198,- 
Star Planer 2.0.698,- 


Marconl Trackerball PC 

■ Busversion.398,- 

■ Serielle Version.498,- 

• AMSTRAD-PC’s ...198,- 

• Schnelder-PC'8.198,- 


FD1 6128/464/664 ..198,. 
An6chlußkabel FD1 ...48,- 

3,5"-Laufwerk.240,- 

5.25‘-Laufwerk.320,- 


... 3000 PD (5,25-). je 8,- 

...optional (3.5*)-.Je 12,- 

Drucker: - 

DMP 3160 (9-N.).445,- 

Star LC10 (9-N.).498,- 

AMSTRAD LQ3500 ..698,- 
Star LC24-10 (24-N.) 798,- 

Farbbänder: - 

NLQ 401/DMP.19,80 

LQ35-/NL10/PCW.24,80 

Joyce (Carbon).39,80 

PCW9512.19,80 

Star LC 10/24 19.80/ 24,80 
Mini DOS Konvertlerp. 48,00 
von CPM nach MS DOS. 

Erweiterungsbox für 
Schneider EuroPC: 

Der Erweiterung Ihres Euro¬ 
PC's sind jetzt keine 
Grenzen mehr gesetzt: 

7 freie Steckplätze. Platz für 
3 Laufwerke bzw. Fest¬ 
platten, 150 Watt-Netzteil... 

Grundversion . 698,— 

mit 5,25 ■ Laufw 998,- 
mit 20 MB Festpl. 1.398,- 
mit 5,25" u. 20 MB1.698,- 


Prelssenkung für AMSTRAD PC/AT: 
PC 1640: 

•MMSD.1.i 

• MMHD.1.1 

Aufpreise (optional): 

• CGA-Monitor. 5 

• EGA-Monltor.1 

• 2.-Laufwerk.5 

PC 2086: 

• VGA MMSD.I.i 


DD1 Inkl. Contr. 3-. 398, 


AMSTRAD FD2/4 3‘ 448,- 

3,5--Laufwerk.240,- 

5,25'-Laufwerk.320,- 

Abdeckhauben: - 

Monitors CPC.je 34,80 

DMP-Drucker.je 24,80 

Floppy’s.je 19,80 

3"-Dlsketten (lOStk): 

Maxell CF2.69,- 

CF2 DD.128,- 

Dlskettenboxen: - 

3-/40..:.19,80 

3,57100 . 24,80 

5.257100 .24,80 

Serielle Schnittstelle 

lür CPC 6128 .168,- 

fOr CPC 464.148.- 

org. engl. PACE.198,- 

Schaltpläne PC: 

...PC 1512/1640 ... 29,80 
...Monitor M/C/EGA . 19,80 

...LQ 3500 .19,80 

Speichererweiterung: 
für Joyce...148,- 


2.-Laufwetk 


PC 2286: 

•VGA MMSD.2.690,- 

•VGA MMHD.3.460,- 

Aufpreiee (optional): 
wie bei 2086 


zurück an Absender a-6/so 

Interessiert an weiterem Info- 
materlal ? Kostenlose Gesamt* 
angebotslisten anfordern I 

O für CPC 6128, 664, 464 
O für Joyce 

O f ür PC (IBM-Kompatible) 


Kart-Heinz Weeske* Potsdamer Ring 10 • 
7 1 50 Backhang • Kreissparkasse BK * 

BIZ (60250020) 74397 ■ Postgiro Stuttgart. 
83326-707 

FAX: 07191 (60077) 6/90 


Protext 


...MAXAM.19,80 

für Joyce: 

...AMX-Maus Joyce. 19,80 

...Mini Office Prof.29,80 

...StopPress Joyce ..19,80 
...Desktop Publisher 19,80 
Joysticks CPC 

Competition pro.39,80 

Quickshot 1.14,80 

Quickshot II.„.19,80 

Quickshot IV.29,80 

Public Domain: - 


COHFUTER-ELEKTROniK 

Zahlung per Nachnahme oder Vorauskasse. 
Versandkostenpauschale: Inland 7,80 DM 
(Ausland 19,80 DM) 

07191/1528-29 od. 60076 

Reparaturwerkstatt auch für Joyce / CPC 


Mein Computersystem: 


Vorname. Name: 


Straße. Hausnummer: 
PLZ. On: 


Telefon-Nummer: 


1000 PD (3").je 20,- 


PaplarfOtmjng PCW Or. ...38.- 


Datum Unterschrift: 


PD Kotulla. Hb. 


Profiprogramme aus der pc wen 

Wir haben den Alleinvertrieb für dBase II, Multlplan, 
Wordstar 3.0 und Microsoft Basic (CPC+Joyce) 
von Markt & Technik übernommen I 
Sollten Sie also Interesse an einer durch und durch 
professionellen Software für Ihren CPC oder Joyce 
haben, dann zögern Sie keine Sekunde und wenden 
sich einfach an uns. 

Für dBase + Uullipten CPC «M/K4 ist eine 64K-Erweiterung nötig. 


Microsoft 


Multlplan 


Paket 


Basic 


■Paket. dBase* WcrdStar + Multiplan • “ benötigt$4K-Erwelterung 


Software CPC: 


Sorcery Plus 3” (SuperCPC-Spiel). „..nur 29,80 

Terminal-Star 3" (Telekommunikation). nur 29,80 

HiSoft PASCAL 4T (Pascalprogrammierung): 

Kassette / 3’-Diskette.nur 39,80 / 59,80 

HiSoft DEVPAC (Assembler/Disassembler): 

Kassette / 3”-Diskette.nur 39,80 / 59,80 

SuperCalc2 3" (Tabeiienkaikuiation) CPC/Joyce nur 59,80 / 59,80 

Easy-Topcalc (Kas.).nur 29,80 

Basic Lehrbuch 2 (Kas.).nur 29,80 


[Software Joyce: 


Cyrus3DChess (Schachspiel) 3‘ Disk. nur 49,80 

Handbücher für dBase, Wordstar, Multiplan, MS Basic nur 49,00 
LocoScrlpt Übungsdiskette 3-Disk.. nur 19,80 


AMSTRAD-Hardware: 


Radikale Preissenkung!! 


CPC 6128 + GT65 / CTM 644 . 

Schneider FD1 / DD1 r oiak-Laufwerk. 

M P2 (Anschluß von Farbfernseher an CPC). 

Joyce PCW 8256 (komplett mit Drucker). 

Dataphon 2400 Baud. 

Dataphon 21 (300Baud). 

Dataphon 21- 23 ( i2ooBaud)... 

Sotfware DFÜ 3" / Kabel Nullmodem... 


..799,-/998, 
198,-/398, 
...nur 148,- 
...nur 899,- 
.. nur 698,- 
...nur 298,- 
...nur 398,- 
.58,- 68,- 


Arnor: - 

PROWORT.219,- 

PROSPELL (dt.) .79,- 

MAXAM II.239,- 

VAN DER ZALM: -- 

ADRESCOMP.58,- 

COMFORM.48,- 

DATENREM.68,- 

ETATGRAF.58,- 

FIBUPLAN.148,- 

FIBUCOMP.98,- 

LAGDAT.68,- 

PROFIREM.136,- 

VOKA8I...58,- 

FAKTUREM...78,- 

KALKUREM.78,- 

Locomotive: - 

LocoScript 2.148,- 

LocoMall 1 . 128,- 

LocoMall 2 .168,- 

LocoSpell 2.168,- 

LocoScript + Spell.248,- 

LocoFile.168,- 

LocoFom Sei 1 .79,80 

Loco Font Set 2.68,40 

LocoScrpt Übungsdisk 19,80 

STAR DIVISION: - 

Statistik-Star.98,- 

Starmail.99,- 

Datei-Star.99,- 

Mailing-System.189,- 

Star-Base.198,- 

Buslness-Star.298,- 

Fibu-Star Plus.„.298,- 


Kontenblätter Fbu.35,90 

Loco-Merge...98,- 

Joyce-Knüller: - 

AMX-Maus Joyce •_298,- 

Blld8chirm(ilter Joyce ...59,- 

StopPress Joyce.198,- 

... + AMX Maus.398,- 

Desktop Publisher.118,- 

... + AMX-Maus.348,- 

MasterScan-_298,- 

MasterPaint...78,- 

MasterScan/-Palnt.338,- 

Minl Office Profess.138,- 

...Otsch. Zeichensatz ...29,80 
BTX-Modul Joyce ab 598,- 
Papierführung Joyce ....39,- 

Schaltplan Joyce.29,80 

RS 232 Joyce.198,- 

MlniDOS.50,- 

Tasword 8000.148,- 

Turbo Pascal 3.0.225,- 

Turbo Toolbox.. 148,- 

Pascal M+T.198,- 

Prompt (Datei).69,- 

Prompt Druck.39,- 

Vokabeltrainer.49,- 

Verbentrainer.49,- 

Lerntrainer.49,- 

Turbo Adress.98,- 

Turbo Faktura.148,- 

Headline...198,- 

MICA CAD.98,- 

Comac Litbox 4.0.148,- 

Comac Kasse Plus .... 168,- 
Comac-Bankiransfer.... 59,50 


Joyce 


Vereins verwalt.198,- 

Schreiblehrgang.89,- 

PSE2.129,- 

Fleetstreet Ed».148,- 

FISKUS 88/89.139,- 

WS-Tuner.„...49,80 

Supercopy..85,- 

Joyce-Splele: - 

After Shock.79,- 

Analsof Rome.„..89,- 

Batman.59,- 

Bridge Player.59,- 

Cyrus 3D Schach.49,80 

Football Fortune*.69,- 

Jewels ol Darkness.89,- 

Matchday II.69,- 

Sillcon Dreams.„..89,- 

Steve Davis Snooker ...69,- 

Starglider.89,- 

The Guild of Thieves ....89,- 

Time and Magic.89,- 

Tomahawk...79,- 

dk 'tronlcs Joyce: - 

Echtzeltuhren modui- 129,- 
256 k Erweiterung 148,- 
Adapter (•) 39,- 

Joyce-Katalog: - 

Genaue Produkt- 
Beschrebungen 4,- 







































































































































































































I—Briefe 


An unsere Leser 

Die Rubrik »Leserbriefe« ist eine Einrichtung für 
alle Leser, die in irgendeiner Form Fragen, Pro¬ 
bleme oder Anregungen zu Produkten, Program¬ 
mierproblemen oder zu unserer Zeitschrift haben. 
Selbstverständlich sind wir bemüht, alle Leserfra¬ 
gen zu beantworten. Doch haben Sie bitte Ver¬ 
ständnis, daß wir nicht alle eingehenden Briefe 
persönlich beantworten können. Oft erreichen uns 
mehrere Briefe zum gleichen Thema, einer davon 
wird dann stellvertretend für alle in unserer Zeit¬ 
schrift beantwortet. 

Ihre PC-Redaktion 


PS: Die Redaktion behält sich vor, Leserzuschrif¬ 
ten in gekürzter Form wiederzugeben 


CPC 

Umschalter MP3 und 
Monitor 

Ich möchte mir einen Um¬ 
schalter -für CPC 6128, CTM 
664 und MP3 hauen. Doch 
mir fehlen Informationen zu 
den sechs Drähten an dem 
Monitor Stecker oder der Mo¬ 
nitorbuchse. Können Sie 
oder die Leser mir weiter¬ 
helfen ? 

Mathias Poppen 
Westerholt 

Diese Frage möchten wir an 
unsere Hardware-Bastler 
weiterreichen. 

Red. 


Allgemein 

Sonderbares Zeichen 

ln Ihrem Programm Sound¬ 
manager aus Heft 4/89 ist in 
der Zeile 120 und in der Zeile 
6710 ein seltsames Zeichen, 
das wie ein kleines Dach (]) 
aussieht. Leider konnte ich 
dieses Zeichen nicht auf der 
Tastatur finden. Mit welchen 
Tasten bekomme ich dieses 
Zeichen auf dem Bildschirm? 

Björn Fackle r 
Wernau 

Wir haben schon des öfteren 
daraufhingewiesen, daß die¬ 
ses Zeichen der Exponent¬ 
pfeil links neben der CLR- 
Taste ist. Der Grund, warum 
der Pfeil nicht so ausge- 
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druckt werden kann, ist der, 
daß die Drucker dieses Zei¬ 
chen nicht kennen. 

Red. 


CPC J 

Btx-Softwaredecoder 

Im "64er“ Computer-Maga¬ 
zin 1/90 wurde ein Btx-Soft- 
waredecoder gratis ver¬ 
schenkt, der allerdings nur 
für einen Commodore C64 
geeignet ist. Jetzt lautet mei¬ 
ne Frage: Gibt es für den 
CPC 6128 auch einen Btx- 
Softwaredecoder ? 

Michael Halbe 
Köln 

Ja, auch für den CPC 6128 
ist ein Softwaredecoder er¬ 
hältlich, und zwar bei fol¬ 
gender Adresse: 

Dobbertin Industrie-Elektro¬ 
nik, Brahmstraße 9. 6835 
Brühl. Der Preis beträgt zir¬ 
ka 98 DM. 

Red. 


CPC J 

Artworx und der 
Präsident 

Da Sie in der Ausgabe 4/90 
einige Anpassungen für das 
Programm Artworx (Heft 
11/88) an geboten haben, 
möchte auch ich einen Bei¬ 
trag dazu leisten. Hier ist 
meine für den Präsident 
6313. Artworx.Bas abtippen 


oder laden, dann folgende 
Zeile eingeben: 

180 PRINT#8,CHR$(27);"1"; 

CHR$(l) 

Die DIP-Schalter müssen 
folgende Einstellung haben: 

5-7 OFF 11-1 OFF 17-1 OFF 

5- 2 OFF 11-2 OH 17-2 OFF 

6- 1 ON 12-1 OFF 18-1 ON 

6- 2 OFF 12-2 OFF 18-2 OFF 

7- 1 OFF 13-1 ON 

7- 2 OFF 13-2 ON 

8- 1 OFF 14-1 OFF 

8- 2 ON 14-2 ON 

9- 1 ON 15-1 ON 

9- 2 OFF 15-2 ON 

10- 1 OFF 16-1 OFF 

10-2 OFF 16-2 OFF 

Christian Röhr 
Schauenburg 1 


CPC 

Doppelter Zeilenvor¬ 
schub beim DMP 3160 

Ich hatte Probleme mit mei¬ 
nem DMP 3160, der mir ei¬ 
nen doppelten Zeilenvor¬ 
schub geliefert hat. Durch 
einen kleinen Trick habe ich 
Abhilfe geschaffen. 

Nach dem Öffnen des 
Druckers kann man in der 
Nähe der Centronics-Buchse 
einen sogenannten Jumper 
entdecken. Wenn dieser Jum¬ 
per umgesteckt wird (es gibt 
nur eine Möglichkeit), hat 
man das Problem mit dem 
doppelten Zei lenvorschub 
gelöst. 

Michael Jung 
Dortmund 

Vielen Dank für den wert¬ 
vollen Tip. 

Red. 


cpq _J 

Letswork und Kassette 

Ich habe die Databox-Kas- 
sette zum Sonderheft 8 '89/90 
bestellt und erhalten. Bei 
meinem CPC 464 der älteren 
Bauart (erkennbar am Plati¬ 
nenlayout) trat das Problem 
auf, daß der Rechner beim 
Laden des Spiels “ Letswork “ 
mit RUN abstürzte. Ich fand 
heraus, daß die Abfrage in 
Zeile 10 (im Heft Zeile 30) 
unsicher war, weil nach dem 
Laden der Wert 33 schon 
darinstand. Ich habe darauf¬ 
hin die Abfrage so umge¬ 
schrieben, daß der Rechner 


die darauffolgende Speicher¬ 
zelle auf den Wert 0 testete. 

Traf das zu, so sollte der 
Rechnerden Binärcode laden. 

10 IF PEEK (&xxxx)=0 THEN LOAD 
"Letswork.Bin" 

Bitte geben Sie diesen Tip an 
Ihre Leser weiter. 

Wie Sie sehen, haben wir 
dies auch getan. Leider kön¬ 
nen wir nicht den Namen 
nennnen, da der Tip von ei¬ 
nem öffentlichen Btx-An- 
schluß kam. Trotzdem vielen 
Dank. 

Red. I 


CPC 

Relais ansteuern (Heft 
3/90, Seite 53) 

Das Kassettenrelais vom 
CPC 6128 kann auch wie 
folgt auf gerufen werden. 
EIN: CALL &BC6E 
AUS: CALL &BC71 

P. Pietsch 
Wien 


CPC 

Datentransfer vom CPC 
zum PC 

Ich habe mich vor geraumer 
Zeit entschieden, auf einen 
PC umzusteigen. Zuvor hatte 
ich jedoch einen CPC 6128, 
mit dem ich außer selbstge¬ 
schrieben Programmen auch 
Programme wie Multiplan, 
dBase und Wordstar etfolg- 
reich angewendet habe. Mei¬ 
ne gesamten Monatsberich¬ 
te, die zur Ausübung meiner 
Ausbildung dienen, aber 
auch private Texte schrieb 
ich mit Wordstar. Doch nun 
zu meinem Problem: Ich 
möchte gerne meine ge¬ 
schriebenen Texte auf einem 
PC weiterverarbeiten. Ich 
besitze sowohl ein 5 1/4- 
Zoll- als auch ein 3 1/2-Zoll- 
Laufwerk. Die Frage ist nun, 
wie ich die Texte vom CPC- 
Format auf das IBM-Format 
bringe, damit sie unter MS- 
DOS lesbar sind. 

Ingo Krienen 
Viersen 

Das Problem mit der Daten¬ 
übertragung ist altbekannt 
und wurde oft besprochen. 


L 
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Die einfachste und billigste 
Lösung wäre, wenn Sie sich 
das Sonderheft 7/88 und die 
dazugehörige Databox be¬ 
sorgen würden. In diesem 
finden Sic ein Programm, 
das eine Datenübertragung 
vom CPC zum PC erlaubt. 
Oder auch in umgekehrter 
Richtung. Die Vorausset¬ 
zung ist ein 5 1/4-Zoll-Lauf- 
werk mit 40 Spuren. 

Red. 


CPC 

Pascal für CPC 

Da ich in die Programmier¬ 
sprache Pascal einsteigen 
möchte, habe ich folgende 
Fragen an Sie: 

1. Es gibt mehrere Pascal- 
Compiler für den CPC. Gibt 
es unter diesen sehr große 
Unterschiede, oder kann 
man gar in Turbo Pascal ge¬ 
schriebene Programme auch 
mitJRT-Pascal compi Heren ? 

2. Gibt es von Turbo Pascal 
für den CPC nur eine Ver¬ 
sion, oder sind davon, wie 
bei MS-DOS-Computern 
auch, mehrere Version er¬ 
hältlich ? 

3. Kann ich Pascal-Pro¬ 
gramme aus der PC-Rubrik 
Ihrer Zeitschrift auch auf 
meinem CPC benutzen ? 

Karl-Heinz Maier 
Senden 

Zu 1.: Grundsätzlich ist es 
möglich, Pascal-Program¬ 
me. welche für den einen 
Compiler geschrieben sind, 
auch auf einem anderen zum 
Laufen zu bringen. Hier gibt 
es jedoch des öfteren 
Schwierigkeiten bei der Um¬ 
setzung von Befehlen, wel¬ 
che (wie mit BASIC auch) 
auf dem einen Compiler lau¬ 
fen und auf dem anderen 
wiederum nicht. 

Zu 2.: Für den CPC gibt es 
nur eine Version von Turbo 
Pascal. Die Versionssprünge 
wie bei PC-Versionen dieser 
Sprache sind bei dem CPC 
nicht mehr gegeben. 

Zu 3.: Im Laufe der Zeit 
wurden die PC-Versionen 
von Turbo Pascal immer 
mehr inkompatibel zu der ur¬ 
sprünglichen Version 3.xx. 
So wird hier zum Beispiel 
nicht mehr mit Include-Da- 
teien, sondern mit Units ge¬ 


arbeitet, wenn man diesen 
Vergleich überhaupt anstel¬ 
len kann. 

Von daher dürfte es sehr 
schwer sein, diese Program¬ 
me auf dem CPC zum Lau¬ 
fen zu bringen. 

Red. 


CPC 

ConText und Star LC 
24-10 

Zum Leserbrief von Herrn ./. 
Drews aus Heft 4/90 wäre 
folgendes zu sagen. Die 
Druckersteuerung von Con¬ 
Text gibt für den Zeilenab¬ 
stand n/216 Zoll aus. Der 
Star LC 24-10 aber macht im 
Standard-Modus tatsächlich 
n/180 Zoll, was die Seite 
sehr in die Länge zieht. Bei 
einer Einstellung von Dip- 
Schalter 1/6 auf OFF (IBM- 
Modus) funktioniert Con Text 
jedoch einwandfrei. Die 
komplette Dip-Schalterstel¬ 
lung lautet: 

SW 1: 00111011 
SW 2:11011111 
Wer diese Dip-Schalterstel- 
lung auf seinem Drucker 
überprüfen will, kann dies im 
Direktmodus tun: 

PRINT # 8,CHR$(27);CHR$(0) 
Diese Zeile veranlaßt den 
Drucker, die Dip-Schalter¬ 
stellung auf Papier auszu¬ 
geben. 

Noch ein Hinweis zum Ein¬ 
stellen der Dip-Schalter. 
Dies sollte grundsätzlich nur 
bei abgeschaltetem Gerät er¬ 
folgen, da der Drucker die 
Veränderung sonst nicht an¬ 
erkennt. Manche Drucker 
müssen sogar durch Aus¬ 
stecken vom Netz getrennt 
werden. 

Stefan Wöllner 

Haar 

Wir hoffen nun. daß alle An¬ 
fragen zu diesem Drucker 
und ConText befriedigt wor¬ 
den sind. 

Red. 


CPC 6128 

Steuerzeichen und DFÜ 

Seit einiger Zeit beschäftige 
ich mich mit DFÜ und mußte 
fest stellen, daß die Ausfüh¬ 
rung des Steuerzeichens 
CHR$(10) (Linefeed) beim 


'Scrollen’ schon für 1200 
Baud zu langsam ist. 

Bis zu drei Zeichen am An¬ 
fang jeder Zeile kommen bei 
meinem CPC 6128 nicht an. 
Dieses Problem tritt eben¬ 
falls bei dem von mir derzeit 
benutzten PD-Programm 
“MEX“ auf 

Der Tip aus Heft 2/88 für 
schnellere Zeichenausgaben 
in Mode 2 sowie das Pro¬ 
gramm “Fast. Com “ für 
CP/M Plus aus dem damali¬ 
gen “Schneider Magazin “ 
brachte leider kein Erfolg. 
Welche Möglichkeiten habe 
ich, die Ausführungen des LF 
beziehungsweise des Scrol¬ 
lings (unter CP/M oder RSX) 
schneller zu machen, oder 
gibt es Programme, bei de¬ 
nen dieses Problem auch bei 
höheren Baud raten (1200 bis 
19200 Baud) nicht auftritt? 

Christian Bahr 
Berlin 

Da wir diese Anfrage nicht 
beantworten können, bitten 
wir unsere Leser, die Erfah¬ 
rungen mit dem PD-Pro¬ 
gramm "MEX“ haben, uns 
zu schreiben. Wer kann 
helfen? 

Red. 


CPC 

ROM-Routinen 

Ich bin Besitzer eines CPC 
6128 und möchte dessen Fä¬ 
higkeiten voll ausnutzen kön¬ 
nen. Meine Kenntnisse lie¬ 
gen vor allen Dingen in den 
Sprachen BASIC und Assem¬ 
bler. Allerdings weiß ich 
sehr wenig über den Aufbau 
des ROMs und dessen Ein¬ 
sprungadressen in wichtige 
nützliche Betriebssystemrou¬ 
tinen. Da keinerlei oder nur 
sehr wenig Lektüre für die 
CPC-Reihe in Buchhandlun¬ 
gen zu haben ist, wäre ich Ih¬ 
nen sehr verbunden, wenn 
Sie mir entsprechende Lektü¬ 
re nennen könnten, die mir 
weiterhilft. 

A nult Spicza 

Langenheim 

Eine vollständige Übersicht 
der Systemroutinen finden 
Sie nur im ROM-Listing- 
Buch von Markt und Tech¬ 
nik. Leider ist dieses Buch 
kaum noch erhältlich, so daß 


AMSTRAD - Computer 
Software + Zubehör 

AMSTRAD-Computer auf Anfrage 
JOYCE-Z ubehör: 

Farbband 8256/8512 (Nylon) 12,90 


dto. 5 Stück 59,90 

3“-Markendisketten 10 St. 59,90 

Farbband 9512 (Nylon) 18,95 

Typenräder 9512 + SD15 25,00 

Diskettenbox f. 12 Disk. 9,95 

Diskettenbox f. 40 Disk. 14,95 

Diskettenbox f. 80 Disk. 18,95 

Druckerverlängerung 1,5m 39,50 

Centronic-Schnittstelle 179,00 


Staubschutzhaube Tastatur 16,95 
Staubschutzhaube Drucker 19,75 
Staubschutzhaube Monitor 32,85 
Staubschutzhauben 3er Set 64,50 

PC-Zubeh ör: 

Abdeckhaube Tastatur 
1512/1640 16,95 

Abdeckhaube Monitor 
1512/1640 39,50 

Laufwerk 3 1/2“ int. 1512/1640 220,00 
Laufwerk 3 1/2“ ext. 1512/1640 398,00 
Laufwerk 5 1/4“ ext. 1512/1640 398,00 
51/4“-Reinigungsdiskette 6,95 
31/2“-Reinigungsdiskette 9,95 
Monitorverlängerung 1512 59,75 

Tastaturverlängerung 
1512/1640 12,00 

Diskettenbox f. 100 5 1/4"-Disk. 16,95 
Diskettenbox f. 50 5 1/4“-Disk. 15.50 

JOYCE PCW 9512 1.450,00 

PC 1640 2 LW/Mono 1.798,00 
24-N.-Drucker LQ5000 1.150,00 

Weitere Preise aut Anlragel 
Preisliste gegen Rückporto. 

Lieterung per Nachnahme oder Voraus¬ 
kasse (Versandkostenpauschale 4,50 DM 
bei Vorauskasse. 6,50 DM bei Nachnahme) 

Kosmalla & Partner 

Datenverarbeitung GmbH 
Bliesstr. 5, 6700 Ludwigshafen 
Tel.: 0621-51 9749 


Welt¬ 

hunger. 

Ernte¬ 

dank. 


Die Deutsche Welthungerhilfe 
unterstützt Selbsthilfe-Projekte 
von Bauern der Dritten Welt, 
damit für sie Ernährung aus 
eigener Kraft möglich wird. 
Und sie hilft den Bauern, 
Natur und Umwelt als Lebens¬ 
grundlage zu erhalten, damit 
Entwicklung auch Zukunft hat. 

| DEUTSCHE 
© WELTHUNGERHILFE 

Spendenkonto Sparkasse Bonn: 111 

Adenauerallee 134 • 5300 Bonn 1 Tel.: 0228/22 880 
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["Briefe 


eine Beschaffung mit 
Schwierigkeiten verbunden 
ist. Wenn Sic es trotzdem 
versuchen wollen, geben wir 
Ihnen hier die genaue Be¬ 
zeichnung: 

ROM-Listing CPC 464, 664, 
6128, Markt & Technik-Ver¬ 
lag, ISBN 3-89090-134-4, 
Preis: 64, - DM 

Unser Tip: Wenn alles nicht 
hilft, dann sollten Sie es mit 
einer Kleinanzeige versu¬ 
chen. 

Red. 


CPC 

Verschiedenes 

1. Gibt es ein Programm, mit 
dem sich Bildschirme ab¬ 
speichern lassen, zum Bei¬ 
spiel aus Spielen ? 

2. Von einem Freund habe 
ich mir den Mirage Image r 
2.0ausgeliehen, um ein Kas¬ 
settenprogramm, das mir ge¬ 
hört, auf Diskette zu kopie¬ 
ren. Leider mußte ich fest- 
stellen, daß dieses Pro¬ 
gramm nur mit dem Mirage 
/mager läuft. Können Sie 
oder ein Leser mir weiter¬ 
helfen ? 

3. Hier noch eine Adresse 
von einem PD-Händler, der 
nicht übel ist: 

PDI, 

Postfach 1118 
6464 Linsengericht 

Infos gibt es dort gegen zwei 
Mark in Briefmarken. 

Stephan Sommer 
Murnau 

Zu I: Ein Programm in der 
PCI 2/88 erlaubt das Abspei¬ 
chern von Bildschirminhal¬ 
ten, funktioniert aber in 
kommerziellen Programmen 
nicht immer. Das Programm 
nennt sich Software-Freezer. 

Zu 2: Programme, die mit 
dem Mirage Imager abge¬ 
speichert wurden, laufen 
auch nur mit diesem. Der 
Grund: Damit sollen Raub¬ 
kopien verhindert werden. 
Poke-Befehle, die das ver¬ 
hindern sollen, sind uns 
nicht bekannt. 

Red. 


PC 2386 _j 

Virus trotz Schreibschutz 

Seit einiger Zeit besitze ich 
den 386er von Amstrad mit 
zusätzliehern 5,25-Zoll-Lauf- 
werk. Durch die steigende 
Anzahl von Meldungen über 
Viren werde ich immer be¬ 
sorgter. Noch bin ich zwar 
von einer Verseuchung ver¬ 
schont geblieben, doch in 
meinem Bekanntenkreis gibt 
es schon einige Fälle, die 
über den harmlosen Scherz 
hinausgehen. 

Wie ich nun hörte, soll sich 
ein Virus trotz schreibge¬ 
schützter Diskette bei einem 
Freund fort gepflanzt haben. 
Können Sie mir sagen, um 
was für einen Virus es sich 
dabei handelt, wie man ihn 
erkennt und beseitigt? 

Rudolf Bauer 
Herne 

Nein, das können wir leider 
nicht, was allerdings nicht 
auf fehlende Informationen 
zurückzuführen ist. Viel¬ 
mehr ist es zumindest auf Ih¬ 
rem Computer vollkommen 
unmöglich, daß sich ein Vi¬ 
rus durch den Schreibschutz 
Ihres Laufwerks frißt. Wir 
wissen nicht, was für einen 
Computer Ihr Freund be¬ 
sitzt, dem derartiges wider¬ 
fahren ist, wir wissen nur, 
daß aufgrund der software¬ 
mäßig nicht überwindbaren 
Schreibschutzbarriere Ihrer 
Laufwerke ein Virus keine 
Chance hat, sich auf einer 
geschützten Diskette breitzu¬ 
machen. Dieses ist nur mög¬ 
lich, wenn der Virus Arme 
und Beine bekommt und fer¬ 
ner in der Lage ist. mit 
Werkzeug umzugehen, um 
sich direkt an Ihren Laufwer¬ 
ken zu vergehen. 

Allerdings sind uns schon ei¬ 
nige wenige Male Fälle zu 
Ohren gekommen, in denen 
offenbar schreibgeschützte 
Disketten befallen wurden. 
Dafür gibt es aber nur die Er¬ 
klärung, daß der Schreib¬ 
schutz fehlerhaft angebracht 
worden war oder möglicher¬ 
weise an großen durchlässi¬ 
gen Stellen das Licht passie¬ 
ren ließ. In einem weiteren 
Fall wurde Tesafilm als 
Schreibschutzaufkleber be¬ 
nutzt, eine Aktion, die nur 
dadurch erklärbar ist, daß 


der unglückliche Anwender 
dachte, sein Laufwerk werde 
mechanisch geprüft. Dieses 
ist bei Ihrem Computer je¬ 
doch nicht der Fall. Wenn 
Sie also den Schreibschutz 
korrekt anbringen, kann de¬ 
finitiv kein Virus auf die Dis¬ 
kette zugreifen, auch wenn 
sich andere Gerüchte beharr¬ 
lich am Leben halten. 

Red. 


JOYCE_ 

Blutalkoholberechnung 

Im Jahre 1988 ist mein Pro¬ 
gramm zur Berechnung des 
Blutalkoholgehaltes AL- 
KOL. BA S auf der Joyce-DA - 
TA BOX 6/88 als Bonuspro¬ 
gramm erschienen. 

Wie aus jüngsten Verlautba¬ 
rungen des Vizepräsidenten 
des Bundesgeri chtshofes, 
Saiger, hervorgeht, wird der 
BGH den bisher geltenden 
Grenzwert von 1,3 Promille, 
von dem an die Rechtsspre¬ 
chung ausnahmslos Fahrun¬ 
tüchtigkeit als bewiesen be¬ 
trachtet, künftig auf 1,1 Pro¬ 
mille herabgesetzt. 

Damit das Programm auf 
den neuesten Stand gebracht 
werden kann, sollten in den 
Zeilen 4730, 4750, 5060 und 
5070die Werte 1,3 durch 1,1 
ersetzt werden. 

Hellmut Waller 
Tübingen 

Als Bemerkung sei uns fol¬ 
gendes gestattet: Der ange¬ 
sprochene Grenzwert be¬ 
sagt, daß, wer immer mit 
solchem Alkoholgehalt das 
Steuer ergreift, den Führer¬ 
schein verlieren kann, wenn 
er, ohne in einen Unfall ver¬ 
wickelt zu sein, überführt 
wird. Also Fineer weg vom 
Alkohol! 

Red. 


PCW 

LocoScript-Tips 

Die Aussage von Guido Ga¬ 
briel, daß Zeichen aus Loco¬ 
Script 1 in LocoScript 2 feh¬ 
len, ist schlicht falsch. 

Alle Zeichen, die in Loco¬ 
Script 2 darstellbar sind, 
sind auch über die Tastatur 
eingebbar. 


So wird das Zeichen 'Regi- 
stered Trademark' mit der 
Tastenfolge (ALT/+fR/ er¬ 
zeugt. 'Trademark' mit 
/ALTI+/SH1FTJ+/R/. Auch 
die vermißten Pfeile lassen 
sich nach Umstellen der Ta¬ 
statur auf 'Symbol ’ mit Hilfe 
der Tastenfolge !ALT]+ff7/ 
ßj über die Tasten IQ, W, E, 
R, T, ZJ mit oder ohne fShiftl 
ohne Probleme erzeugen. Es 
empfiehlt sich wirklich ein¬ 
mal, eine Entdeckungsreise 
durch die Zeichen weit von 
LocoScript 2 zu unterneh¬ 
men. Ich bin beim Zählen auf 
383 verschiedene Zeichen 
gekommen, zu denen ab der 
Version 2.28 noch einmal 
zwölf Zeichen dazugekom¬ 
men sind. Wem das nicht 
reicht, der kann 16 Zeichen 
selbst verändern (vgl. PC In¬ 
ternational 9/88, S. 88f 'An¬ 
sichtssache'). Aber auch da 
scheint LocoMotive noch 
nicht am Ende zu sein. So 
gibt es inzwischen eine Euro- 
A rabic- Version von Loco¬ 
Script, die neben der Dar¬ 
stellung der arabischen 
Schriften auch die Schreib¬ 
richtung von rechts nach 
links ermöglicht. Anschei¬ 
nend wird es mit dieser Mög¬ 
lichkeit bald noch weitere 
Sprachen geben, die mit dem 
PCW bearbeitet werden 
können. 

Christian von Rotenhan 
Forchheim 


PCW 

Betrifft BASIC-Pro- 
gramme auf dem PCW 

Immer wieder erreichen uns 
Zuschriften, daß im Heft ab¬ 
gedruckte BASIC-Program- 
me nicht auf dem PCW lau¬ 
fen. Hierzu ist zu sagen, daß 
Programme, welche für die 
CPC-Rechner ausgeschrie¬ 
ben sind, grundsätzlich nicht 
auf dem PCW laufen kön¬ 
nen, da CPC und PCW ver¬ 
schiedene BASIC-Versionen 
benutzen (Locomotive- 
BASIC und Mallard-BASIC). 
Viele Befehle (hauptsächlich 
Grafikbefehle) sind in Mal¬ 
lard-BASIC nicht integriert, 
so daß es ohne hohe Pro¬ 
grammierkenntnisse nicht 
oder kaum möglich ist, diese 
Programme an den PCW an¬ 
zupassen. Red. 
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Der Joystick-Bypass 

Eine Joystick-Weiche 
im Selbstbau 

Besitzen Sie ein Spiel, bei dem ein zweiter Joystick 
abgefragt wird? Wenn ja, dann haben Sie sich sicherlich 
gefragt, wo dieser angeschlossen werden soll, denn ein 
zweiter Joystick-Anschluß ist ja nicht vorgesehen. 

Viele Spiel- und Anwenderprogramme für die Computer der 
CPC-Reihe gestatten die Benutzung eines Joysticks anstelle 
der Tastatur. Manche Programme können von zwei Spielern 
gleichzeitig benutzt werden, so zum Beispiel Tennis-Simula¬ 
tionen oder ähnliches. Wenn an den CPC die original 
Amstrad- beziehungsweise Schneider-Joysticks JY1 oder 
JY2 angeschlossen sind, können beide Benutzer den 
verwenden, da sich über die eingebaute Buchse in die 
sticks noch ein zweiter anschließen läßt. 

Das Problem und die Lösung 

Nun das Problem: Werden besondere Joystick-Modelle be¬ 
nutzt, die keine Zweitanschlußbuchse aufweisen (zum Bei¬ 
spiel Quickshot, Competition Pro und einige andere), ist der 
zweite Spieler beziehungsweise Anwender auf die Tastatur 
angewiesen, was nicht immer von Vorteil ist und zu heftigen 
Diskussionen führen kann. 

Um solchem Ärger aus dem Weg zu gehen, gibt es eine einfa¬ 
che und gute Lösung: den Bau einer Joystick-Weiche. Das 
Prinzip der Joystick-Weiche ist schnell erklärt. Die Schal¬ 
tung wird an den Joystick-Port des Computers angeschlos¬ 
sen. Durch geschickte Verdrahtung stehen dann zwei Buch¬ 
sen (eine für Spieler 1, die andere für Spieler 2) zur Verfü¬ 
gung, an die die Joysticks angeschlossen werden können. 
Nun kann jeder Benutzer seinen Joystick verwenden, ohne 
daß es gleich zu mittleren Aufständen kommt. 

Weiiige Bauteile werden benötigt 


Zum Aufbau der Schaltung wird folgendes benötigt: 

1. 9poliger Joystick-Stecker (“weiblich“) 

2. 9poliger Joystick-Stecker (“männlich“) 

3. 20 cm Flachbandkabel, 16adrig 

Das alles ist für wenig Geld in einem Bastelgeschäft zu be¬ 
kommen. Weiterhin sind ein Lötkolben, etwas Lötzinn und 
ein wenig Löterfahrung verlangt. Wer im Löten nicht so be¬ 
wandert ist, kann sich die Schaltung auch von einem Hobby¬ 
elektroniker aufbauen lassen. Die Stecker werden gemäß der 
Tabelle miteinander verbunden. Vor dem Anschluß an den 
Computer sollte noch einmal die Richtigkeit der Verbindun¬ 
gen überprüft werden. Es würde zwar nicht viel passieren, 
allerdings wären möglicherweise (bei falscher Verdrahtung) 
die Joystick-Funktionen vertauscht (rechts = hoch, etc.), 
was nicht im Sinne des Erfinders ist. 

(Jens Strohmeyer/cd) Die Anschlußbelegung für die Joystick-Weiche 
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Umform-Künstler 

Formelsammlung mit Extras 

Das Unbehagen gegenüber mathematischen Vorschrif¬ 
ten schlägt nur zu oft auf den Lehrkörper über, der auf¬ 
grund langjähriger Stoffwiederholungen firm in so man¬ 
chen, für den Lernenden undurchdringlichen Gebieten 
der hohen Kunst des Rechnens ist. 



Vor allem dann, wenn der Tag kommt, 
an dem es von der Tafel schallt: “Nun 
wollen wir uns mit der Gleichungslehre 
und der Umformung von Formeln be¬ 
fassen.“ Dann treten mit einem Male in 
die behüteten Leben ’Xe' und Ze' ein, 
werden geteilt und gekürzt, auf andere 
Seiten gebracht oder potenziert. 
Definitions- und Wertebereiche ver¬ 
drängen Prince und Sandra und begin¬ 
nen das Hirn einzutrocknen. Man 
denkt plötzlich nur noch in Quadrat¬ 
wurzeln, und das belegte Frühstücks¬ 
brötchen kostet nicht mehr eine Mark 
sondern 4*y-l/2 Mark, wobei y = 3/8 
ist. 

Diese Schwierigkeiten in den Griff zu 
bekommen, hat sich das Programm 
Formelsammlung zur Aufgabe ge¬ 
macht. Es ist dabei nicht nur eine her¬ 
vorragende Bibliothek für alle mathe¬ 
matischen und physikalischen Glei¬ 
chungen, sondern darüber hinaus in 
der Lage, Formeln umzuwandeln oder 
zu kombinieren. Das Programm im 
einzelnen: 

Leistungsmerkmale 

Nach dem Start erscheint das Hauptme- 
nü mit acht Unterprogrammen. 

<> 1. Formel eingeben 
Sie werden gebeten, eine Formel und 
einen Kommentar einzugeben. Der 
Kommentar dient dazu, den Verwen¬ 
dungszweck und die Art der Formel zu 
beschreiben. Wird keine Formel einge¬ 
geben, springt das Programm zurück 
ins Hauptmenü. 

0 2. Formeln verbinden 
Mit diesem Programmteil wird die er¬ 
ste Formel in die zweite eingepaßt. Sie 
können wählen, ob Sie eine Formel aus 
der Formelsammlung nehmen oder 
selbst eine eingeben wollen. Sollten Sie 
eine Formel aus der Sammlung neh¬ 


men, verfahren Sie wie in Punkt 5 be¬ 
schrieben. 

Nachdem Sie so die erste Formel be¬ 
stimmt haben, werden Sie nach der Va¬ 
riablen gefragt, mit der die erste For¬ 
mel in die zweite eingepaßt werden 
soll. Falls die Variable nicht am An¬ 
fang, das heißt auf der linken Seite des 
Gleichheitszeichens, steht, wird die 
Formel automatisch danach umge¬ 
stellt. 

Nun wird nach der zweiten Formel ge¬ 
fragt. Auf Wunsch wird die zweite 
Formel auch noch umgestellt. Wie das 
geschieht, lesen Sie unter Punkt 3. 

Zum besseren Verständnis hier ein 
kleines Beispiel: 

Die erste Formel sei ’F=m*a’ und soll 
mit der Variable V in die zweite For¬ 
mel eingesetzt werden. Dann wird die 
Gleichung folgendermaßen umgestellt: 
’a=F/m\ 

Die zweite Formel sei nun ’g=sin(a)\ 
Die Variable V wird dann durch die 
erste Formel ersetzt. Die neue Formel 
sieht dann so aus: ’g = sin(F/m)\ Ist 
dies geschehen, erscheint ein Menü. 
Dort können Sie wählen, ob die neue 
Gleichung in die Formelsammlung auf¬ 
genommen, ob sie umgeformt oder ob 
sie ausgedruckt werden soll. Der Aus¬ 
druck beinhaltet sowohl die beiden al¬ 
ten als auch die neue Formel. Verlas¬ 
sen werden kann das Unterprogramm 
nur über Punkt 4 des Untermenüs, wel¬ 
ches ins Hauptmenü führt. 

<> 3. Umformen 

Auch hier können Sie zwischen einer 
Formel aus der Sammlung oder einer 
eigenen wählen. Sie werden gefragt, 
nach weicher Variablen Sie umstellen 
wollen. Die Formel wird dann entspre¬ 


chend verändert und angezeigt. Ein 
neues Untermenü erscheint. Dort kön¬ 
nen Sie entscheiden, ob Sie die alte und 
die neue Formel ausgedruckt haben 
wollen, ob Sie mit der neuen Formel zu 
rechnen gedenken oder ob Sie ins 
Hauptmenü zurück wollen. 

£> 4. Rechnen 

Wie bei den vorher beschriebenen Tei¬ 
len können Sie auch hier wieder zwi¬ 
schen einer Formel aus der Sammlung 
und einer eigenen wählen. Daraufhin 
werden Sie gebeten, jeder Variablen in 
der Formel einen Wert zuzuordnen und 
die RETURN-Taste zu drücken. Nun 
erscheint das Ergebnis, und Sie müssen 
sich entscheiden, ob Sie dieses mit For¬ 
mel und Variablen ausdrucken möch¬ 
ten oder ob Sie zurück ins Hauptmenü 
gelangen wollen. 

£ 5. Formel suchen/ändern 
Hier sind Sie in der Lage, eine Formel 
und den dazugehörigen Kommentar 
einzugeben. Die Formelsammlung 
wird daraufhin durchsucht. Sollte we¬ 
der der Kommentar noch die Formel 
eingegeben worden sein, werden alle 
Formeln angezeigt. 

Unter jeder Formel ist dann zu lesen: 
“Ist dies die gesuchte Formel?“ Wenn 
Sie die <J >-Taste drücken, erscheint 
das Unterprogramm 'Ändern’, anson¬ 
sten geht die Suche weiter. 

Bei “Ändern“ können Sie die Formel 
oder den Kommentar überschreiben. 
Egal ob Sie bei der Abfrage < J> oder 
<N> gedrückt haben, es erscheint 
eine weitere, die nach eventueller Wei¬ 
tersuche, nach Ausdruck der geänder¬ 
ten Daten oder nach Sprung ins Haupt¬ 
menü fragt. 
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O 6. Formel ausdrucken 
Druckt alle in der Sammlung vorhan¬ 
denen Formeln mit Kommentar aus. 

<> 7. Formelsammlung laden 
Lädt die Datei “Forsam.dat“. 

$ 8. Formelsammlung speichern 
Speichert die Datei “Forsam.dat“. 

Funktionen 

Damit das Programm auch etwas kom¬ 
pliziertere Formeln verwalten und be¬ 
arbeiten kann, ist es so gestaltet, daß 
außer den vier Grundrechenarten + , 
—, *, und / auch spezielle Funktionen 
verwendet werden können: 


SIN (Sinus) 

ARCSIN (Arcussinus) 

COS (Cosinus) 

ARCCOS (Arcuscosinus) 

TAN (Tangens) 

ARCTAN (Arcustangens) 

SEC (Secans) 

ARCSEC (Arcussecans) 

CSC (Cosecans) 

ARCCSC (Arcuscosecans) 

COT (Cotangens) 

ARCCOT (Arcuseotangens) 

LOG (natürlicher Logarithmus) 
EXP (gibt den Wert von 'e’ poten¬ 
ziert mit dem nachfolgendem Aus¬ 
druck wieder. 'e‘ ist der natürliche 
Logarithmus von 1 also: 2.7182818) 
LG (Logarithmus auf Zehnerbasis) 
10T (10 wird mit der nachfolgenden 
Zahl potenziert.) 

T (Die vor dem Rechenzeichen ste¬ 
hende Variable oder Zahl wird mit 
der nachfolgenden potenziert.) 

Außer bei '10t' und '!' muß der nachfolgende 
druck in Klammem stehen. 


Damit der Rechner die Formeln verar¬ 
beiten kann, muß folgendes beachtet 
werden: 

— Außer den oben beschriebenen, dür¬ 
fen keine Rechenzeichen oder For¬ 
meln verwendet werden. 

— Die Variablen dürfen nur ein Zei¬ 
chen lang sein. Das Programm un¬ 
terscheidet große und kleine Varia¬ 
blen. 

— Eine Formel kann nicht nach ihren 
Exponenten aufgelöst werden, au¬ 
ßer bei ’IOT’. Zum Beispiel: a = 


lOtc kann nach ’c’ aufgelöst wer¬ 
den, bei a = btc geht dies nicht. 

- Die Variable, nach der eine Formel 
umgeformt werden soll, darf nur 
einmal in dieser Formel ver¬ 
kommen. 

- Falls in einer Formel Zahlen auftau¬ 
chen, dürfen diese nur ganzzahlig 
sein. Ansonsten sollte eine Variable 
gewählt werden. Beim Punkt 
RECHNEN kann dieser Variable 
eine Fließkommazahl zugeordnet 
werden. 

- Falls mehrere Funktionen auf einen 
Ausdruck zutreffen, müssen Klam¬ 
mern gesetzt werden. Beispiel: 
’sin(a)tb’ gilt nicht aber ’(sin(a))tb’ 
oder , sin(atb)’. 

Zur besseren Übersicht werden die 
Hochzahlen etwas höher gezeichnet als 
die anderen Zeichen der Formel. Au¬ 
ßerdem werden die Zeichen ’f ’ und 
nicht angezeigt. Diese Zeichen dürfen 
bei der Eingabe der Formel allerdings 
nicht weggelassen werden (a = bc gilt 
nicht, dafür aber a=b*c). 

Zum Programm 

Nun noch ein paar Worte zur Arbeits¬ 
weise des Programms. Bei Punkt 4 
(Rechnen) wird die mathematische 
Formel in eine für den Computer ver¬ 
ständliche Formel umgewandelt. 
'ARCSIN 1 wird zum Beispiel in 
’FNARCSIN’ und ’LG 1 in ’LOGIO’ 
verändert. Somit ist es möglich, daß 
der Benutzer Formeln aus Büchern 
oder ähnlichem einfach übernehmen 
kann und der Computer trotzdem eine 
für ihn verständliche Formel vorliegen 
hat. Die Variablen der Formeln werden 
durch die Variablen ’var(index)’ er¬ 
setzt, und die Variable ’var(index)’ er¬ 


hält einen vom Benutzer eingegebenen 
Wert. Danach wird die neue Formel in 
eine Zeile geschrieben und das Ergeb¬ 
nis ausgerechnet. Um die neue Formel 
in eine Zeile zu schreiben, werden zwei 
Wege verfolgt. 

Der erste ist, die Formel durch den 
KEY- und KEY-DEF-Befehl auf die 
RETURN-Taste zu legen und das Pro¬ 
gramm anzuhalten. Beim Drücken der 
RETURN-Taste wird die Formel in 
eine Zeile geschrieben, und das Pro¬ 
gramm fährt fort. 

Leider kann es aber auch Vorkommen, 
daß die Formel zu lang ist und nicht 
durch den KEY-Bcfehl auf eine Taste 
zu legen ist. Dann springt das Pro¬ 
gramm in ein Unterprogramm und li¬ 
stet die betreffende Zeile auf, die dann 
vom Benutzer mit der <COPY >-Ta¬ 
ste kopiert werden muß. 

Bei Punkt 3 (Formeln verbinden) wird, 
nachdem beide Formeln richtig vorlie¬ 
gen, einfach durch den Befehl MID$ 
die erste in die zweite eingesetzt. 


Hinweise: 

Das Programm Formelsammlung be¬ 
steht aus nur einem Listing. Tippen 
Sie dieses ab, und sichern Sie es unter 
einem beliebigen Namen. Da Sie zu 
Beginn noch keine Formeln in der Bi¬ 
bliothek haben, sollten Sie, bevor Sie 
den Menüpunkt “Formeln laden“ an¬ 
wählen, erst einmal einige mathemati¬ 
sche Ausdrücke eingeben und spei¬ 
chern. 

Das Zeichen für Potenzrechnung ver¬ 
birgt sich hinter dem Pfeil, der auf der 
Tastatur der CPC-Rechner links ne¬ 
ben der CLR-Taste zu finden ist. 

Das Programm befindet sich im Li- 
stingteil in der Mitte dieser Ausgabe. 


(Erik Rcinsch/jf) 


Keine Probleme mehr 
mit mathenuttischen 
Ausdrücken. Die For¬ 
melsammlung nimmt 
Ihnen die A rbeit ab 
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Zellenstrukturen sichtbar gemacht 


Unter dem Begriff Biomorph versteht 
man lehensähnliche Formen , die man 
durch ein bestimmtes Untersuchungs¬ 
verfahren komplexer Funktionen 
erhält. Diese Formen ähneln sehr 
denen von Bakterien und Zellen. Der 
bekannte Forscher Pickover entdeck¬ 
te die Biomorphe, welche die kom¬ 
plexe Ebene in den verschiedensten 
Varianten bevölkern, zufällig durch 
einen Fehler in einem Programm zur 
Untersuchung fraktaler Eigen¬ 
schaften. 



32 PC 6 / 7'90 















Biomorphe entstehen durch wiederhol¬ 
tes Anwenden (Iterationen) einer kom¬ 
plexen Funktion, wobei in jedem 
Schritt die Funktion auf das Ergebnis 
des vorhergehenden verwendet wird: 
Zum Beispiel entsteht ein Biomorph 
durch wiederholtes An wenden der 
Vorschrift Zn=F(Zn-l) F(Z) = ZT2. 
Wir beginnen mit einem Startwert ZO, 
quadrieren diesen und legen das Ergeb¬ 
nis in der Variable ZI ab, quadrieren 
ZI und legen das Ergebnis in der Va¬ 
riablen Z2 ab usw... 

Wir müssen dabei berücksichtigen, daß 
Z eine komplexe Zahl ist. Eine kom¬ 
plexe Zahl besteht aus zwei reellen 
Zahlen, dem Imaginärteil und dem Re¬ 
alteil. Sie wird durch den mathemati¬ 
schen Ausdruck A+B*i dargestellt, 
wobei A den Realteil repräsentiert und 
B den Imaginärteil, i ist die Quadrat¬ 
wurzel aus 1 oder, in anderen Worten, 
it2=-l. Man kann sich gut eine kom¬ 
plexe Zahl als einen Punkt (A;B) in ei¬ 
ner Ebene vorstellen. Beispiel: Die 
Zahl 6 + 3*i hat als Realteil den Wert 6, 
als Imaginärteil den Wert 3. Sie reprä¬ 
sentiert für uns den Punkt (3;1). Nun 
untersuchen wir die Funktion ZT2.: 
Für ZT2 können wir auch schreiben: 
(A + B*i)t2. Wir lösen den Ausdruck 
mit Hille der binomischen Formeln auf 
und erhalten folgenden: 


AT2 + 2*A*B*i + (B*i)T2. Da iT2=-l, 
können wir auch schreiben: 

AT2-BT2 + 2* A*B*i 
Daraus folgt, daß ZT2 als Realteil den 
Wert AT2-BT2 hat, als Imaginärteil 
-2*A*B und den Punkt (AT2-BT2; 
-2AB) darstellt. Mit der Vorschrift in 
unserem Beispiel wird aus der komple¬ 
xen Zahl Zn-1 =A+B*i die komplexe 
Zahl Zn = AT2-Bt2-2*A*B*i. Um ein 
Biomorph zu generieren, müssen wir 
zunächst einmal jedem Bildschirmpixel 
einen Gitterpunkl der komplexen Zah¬ 
lenebene zuordnen und zu diesem Git¬ 
terpunkt eine gewisse Anzahl von Ite¬ 
rationen durchführen. Der Startwert 
ZO hat jeweils als Real- und Imaginär¬ 
teil die Koordinaten des jeweiligen Git¬ 
terpunktes. Das Ergebnis (die komple¬ 
xe Zahl Zn) der Iterationen bestimmt 
jeweils die Farbe des entsprechenden 
Bildschirmpixel. Man kann zum Bei¬ 
spiel den Pixel schwarz färben, wenn 
Real- oder Imaginärteil der Zahl Zn ei¬ 
nen gewissen Wert (Unendlichkeits¬ 
grenze) überschreitet. 

Mathematische Kenntnisse sind 
nicht unbedingt erforderlich 

Das Programm BIOMORPH fordert 
keine mathematischen Kenntnisse im 
Umgang mit komplexen Funktionen. 
Die interessante¬ 
sten Funktionen 
sind schon fest 
eingespeichert. 

Von ihnen kann 
man sich Biomor¬ 
phe generieren 
lassen, von den 
generierten Bil¬ 
dern kann man 
sich Ausschnitts¬ 
vergrößerungen 
an fertigen lassen. 

Zu jedem Bild 
kann man sich die 
passenden Farben 
einstellen. Zusätz¬ 
lich enthält das 
Programm eine 
aufwendige Bil¬ 
derverwaltung (nur bei Diskette). 

Das kurze Programm BIOEXP ist für 
die Leser gedacht, die auch andere 
komplexe Funktionen untersuchen 
wollen. Bei der Untersuchung einer 
komplexen Funktion muß man aller¬ 
dings diese in Real- und Imaginärteil 
auflösen können. In der Tabelle wur¬ 
den einige Funktionen in Real- und 
Imaginärteil aufgelöst. Bevor man die 
Funktion untersucht, muß man diese in 


der entsprechenden Form in das Pro¬ 
gramm einsetzen. Danach startet man 
das Programm und gibt die Parameter 
(zu untersuchender Imaginär- und Re¬ 
alteil, die Bildauflösung (normal: 320 
Punkte in x-Richtung, 200 Punkte in y- 
Richtung), die Rechentiefe (Zahl der 
Iterationen pro Punkt) und die Unend¬ 
lichkeitsgrenze (der absolute Wert von 
Real- und Imaginärteil, den die kom¬ 
plexe Zahl Zn nicht überschreiten darf) 
ein. Nach der Eingabe wird das Bio¬ 
morph generiert und auf Diskette abge¬ 
speichert. 

Nach dem Start befindet man sich im 
Hauptmenü. Die Menüpunkte werden 
mit den Cursortasten selektiert, Copy 
ruft den jeweiligen Menüpunkt auf. 

Die Menüpunkte 

1. SYSTEM EINSTELLEN 
Mit diesem Menüpunkt können Sie 
sich die Parameter (x- und y-Auflö- 
sung. Real- und Imaginärbereich, Un¬ 
endlichkeitsgrenze, Rechentiefe, Bild¬ 
name) ansehen und diese einzeln editie¬ 
ren. Außerdem wählen Sie mit diesem 
Menüpunkt die zu untersuchende 
Funktion. Am Anfang werden Ihnen 
die Parameter angezeigt: 

IMAG-Start und IMAG-Ende stehen 
für den zu untersuchenden Imaginär¬ 
teil. Wenn Sie eine Funktion untersu¬ 


chen, die Sie noch gar nicht kennen, 
sollten Sie zu Beginn einen möglichst 
großen Bereich einstellen (zum Bei¬ 
spiel das Intervall (-10; 10. das heißt. 
1MAG-Start:-10, IMAG-Ende: 10), um 
sich erst einmal einen Gesamtüberblick 
über die Funktion zu verschaffen. Da¬ 
nach können Sie sich von den interes¬ 
santen Teilen Ausschnittvergrößerun¬ 
gen an fertigen lassen. REAL-Start und 
REAL-Ende stehen für den zu untersu- 



6/7’90 PC 33 







r~Programm 



F(Z) 

= REALteil (rt) von F(Z) = 

IMAGINÄRteil (it) von F(Z) 

Z~2 

= R~2-I~2 

-2*R*I 

l/Z'2 

= (R“2-I~2)/(R“2+I“2)~2 = 

-2*R*I/(R~2+I~2)“2 

EXP(Z) 

= EXP(R)*COS(I) 

EXP(R)* SIN(I) 

SIN(Z) 

= SIN(R)*COSH(I) 

COS(R)*SINH(I) 

cos(z) 

= COS(R)*COSH(I) 

-SIN(R)* SINH(I) 

TAN(Z) 

=SIN(2R)/(COS(2R)+COSH(21))= 

SINH(21)/(COS(2R)+COSH(21)) 

SINH(Z) 

= SINH(R)*COS(I) 

COSH(R)*SIN(I) 

COSH(Z) 

= COSH(R)*COS(I) 

SINH(R)*SIN(I) 

LN (Z) 

= 0.5*LN(R“2+l“2) 

ARCTAN(I/R) 

SQR(Z) 

= SQR( (R+SQR(R“2+I - '2)/2) ) = 

SQR((-R+SQR(R~ 2 + l“2)/2)) 



Tabelle zum Auflösen komplexer Funktionen in Imaginär - und Realteil. Es gilt Z=R+i*I 


chenden Realteil. Analog zum Imagi¬ 
närteil empfehlen wir, zu Beginn große 
Intervalle einzustellen. 

X-AUFLÖSUNG steht für die Anzahl 
der Bildpunkte in x-Richtung (normal: 
320 Bildpunkte für maximale Auflö¬ 
sung). 

Y-AUFLÖSUNG steht für die Anzahl 
der Bildpunkte in y-Richtung (normal: 
200 Bildpunkte für maximale Auflö¬ 
sung). 

RECHENTIEFE ist ein Ausdruck für 
die Anzahl der Berechnungen, die pro 
Punkt durchgeführt werden. Je größer 
die Rechentiefe, desto länger dauert es, 
ein Bild zu generieren, und desto “ma¬ 
thematisch genauer“ wird das Bild. 
Der Wert 10 für die Rechentiefe ist erst 
einmal ideal! 


UNENDLICHKEITSGRENZE ist der 
Wert für Real- und Imaginärteil, der 
die Unendlichkeit repräsentiert. Hier 
sollte man auch den Wert 10 einstellen. 

Der BILDNAME darf maximal acht 
Zeichen lang sein. Unter diesem Na¬ 
men wird das Bild auf Diskette abge¬ 
speichert. Sie können jeden dieser Pa¬ 
rameter umändern. Wenn Sie einen Pa¬ 
rameter nicht ändern wollen, drücken 
Sie nur die Enter-Taste, und der Wert 
des Parameters bleibt unverändert. 

Nach der Parametereditierung werden 
Ihnen alle Funktionen angezeigt, die 
Sie untersuchen können. Die invers an¬ 
gezeigte Funktion ist die Funktion, die 
untersucht wird. Sie können nun eine 
der angezeigten Funktionen auswäh¬ 
len. 


2. Farben ändern 

Mit diesem Menüpunkt können Sie die 
Farben des Biomorph-Bildes setzen. 
Mit Pfeiltaste-hoch und -runter wählen 
sie den Stift, mit Pfeiltaste-rechts und 
Pfeiltaste-links die entsprechende Far¬ 
be. Mit I werden die Farben invertiert. 
Anwendern, die mit Farben nicht viel 
herumexperimentieren wollen, emp¬ 
fehlen wir je nach Monitor, nur die Ta¬ 
sten F (Farbe) beziehungsweise G 
(Grün) zu drücken. Mit der Copy-Ta- 
ste kehren Sie wieder zurück in das 
Hauptmenü. 

3. Biomorph generieren 

Nachdem Sie die Parameter (und even- 
tuell die Farben) eingestellt haben, se¬ 
lektieren Sie diesen Punkt, um das Bio- 
morph-Bild generieren zu lassen. Es 
dauert zirka zwei bis vier Stunden (je 
nachdem, wie komplex die zu untersu¬ 
chende Funktion ist), bis ein Bild gene¬ 
riert worden ist. 

Mit A (Abbruch) können Sie die Be¬ 
rechnung abbrechen und das bis zu 
dem Zeitpunkt generierte Bild abspei¬ 
chern. (Sie kehren mit A automatisch 
zurück in das Haupjmenü.) 

Um das Bild abzuspeichern, rufen Sie 
den Menüpunkt BIOMORPH AB¬ 
SPEICHERN auf. Wenn Sie dann spä¬ 
ter einmal das Bild zu Ende generieren 
lassen wollen, laden Sie das Bild (BIO¬ 
MORPH LADEN), und rufen Sie wie¬ 
der die Funktion BIOMORPH GENE¬ 
RIEREN auf. 

4. Biomorph abspeichern 

Mit diesem Menüpunkt speichern Sie 
das Biomorph-Bild auf Diskette ab. Es 
werden zwei Files auf Diskette abge¬ 
speichert: “NAME“.SCN ist das ei¬ 
gentliche Bild, welches Sie ohne Pro¬ 
bleme mit einem Malprogram nachbe¬ 
arbeiten können. “NAME“ ist eine 
kurze Datei, in der die Parameter, der 



Bild I: Landschaften .... 


Bild 2: ...Strukturen,... 
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Bild 3: ... Fantasie- 
Gebilde: Lassen Sie 
sieh von “bioinor- 
phen Grafiken" ver¬ 
wöhnen 


Name der Funktion, die untersucht 
wurde, und die Farben abgespeichert 
sind. Das Abspeichem auf Kassette ist 
problemlos, wenn vor dem Dateina¬ 
men ein Ausrufezeichen (!) gesetzt 
wird. Das bedeutet, daß das Bild sofort 
abgespeichert wird, ohne daß eine 
Meldung auf dem Bildschirm er¬ 
scheint! 

5. Bioniorph laden 

Dieser Menüpunkt ist zu benutzen, um 
Biomorph-Bilder von Diskette zu la¬ 
den. Zunächst erscheint ein Inhaltsver¬ 


zeichnis von den Bildern, die sich auf 
der Diskette befinden. Sie werden da¬ 
nach aufgefordert, den Namen des Bil¬ 
des, welches geladen werden soll, ein¬ 
zugeben. Mit Ctrl-L wechseln Sie das 
Laufwerk, mit Enter kehren Sie wieder 
zurück in das Hauptmenü. 

6. Disketteninhaltsverzeichnis 

Wählen Sie diesen Menüpunkt, um 
sich den Disketteninhalt anzeigen zu 
lassen. Mit Ctrl-L wechseln Sie das 
Laufwerk. 


7. Bioniorph ansehen 

Das generierte Biomorph-Bild wird ge¬ 
zeigt. Falls Sie einen Ausschnitt von 
diesem Bild definiert haben (mit Hilfe 
des Menüpunktes AUSSCHNITTS- 
VERGRÖSSERUNG), können Sie 
sich diesen ebenfalls mit der Taste A 
anzeigen lassen. 

8. Ausschnittsvergrößerung 

Um eine Ausschnittvergrößerung von 
einem Biomorph-Bild anzufertigen, 
wählen Sie zunächst diesen Menü¬ 
punkt. Das Bild wird angezeigt, und in 
der linken unteren Ecke können Sie ein 
Fadenkreuz sehen. Dieses bewegen Sie 
mit Hilfe der Cursortasten zum unteren 
linken Eckpunkt des Ausschnitts, den 
Sie vergrößert haben möchten. 
Drücken Sie Copy, und bewegen Sie 
dann das Fadenkreuz zum rechten obe¬ 
ren Eckpunkt. Drücken Sie wieder 
Copy, und der von Ihnen definierte 
Ausschnitt wird angezeigt. Sie kehren 
dann zurück zum Hauptmenü. Wählen 
Sie nun den Menüpunkt BIOMORPH 
GENERIEREN, um die Auschnittver- 
größerung zu starten. 

Hinweis: Das im Listing vorkommen¬ 
de Zeichen (t) ist der senkrechte Pfeil, 
neben der CLR-Taste. 

(Martin Schroeder/cd) 


Schlangenhaft 

Ein CPC-Geschicklichkeitsspiel 

Erinnern Sie sich noch an das legendäre Spiel “NIBBLER“? Hier ist eine 
neue Version, aber mit dem gleichen Spielspaß. 


Sie müssen (wie beim Vorgänger) eine 
Schlange durch ein mehr oder weniger 
verwinkeltes Labyrinth steuern, und 
zwar so, daß sie sich nicht in den 
Schwanz beißt, zu lange an einer Wand 
wartet oder gar versuchen will, rück¬ 
wärts zu kriechen. In all diesen Fällen 
geht es zwar nicht gleich um Leben 
oder Tod ("Sie haben noch 3 Leben"), 
sondern um Zuckerstückchen, die Sie 
der Schlange geben müssen, damit sie 
Lust zum Spielen hat. 

Am Ende gibt es eine 
Überraschung 

Ein Level ist dann beendet, wenn alle 
Punkte eingesammelt worden sind. Ha¬ 
ben Sie die vier Levels erfolgreich 
durchgespielt, erhöht sich der Schwie¬ 
rigkeitsgrad. das heißt, die Schlange 
wächst schneller, und das Spiel läuft 


allgemein schneller ab. Sollten Sie das 
gesamte Spiel (also Level 4, Grad 3) 
gemeistert haben, so wartet eine ganz 
besondere Auszeichnung auf Sie. 


Gesteuert wird mit dem Joystick und 
eingetippt mit der Tastatur. 

Und nun folgen die Hinweise für das 
Abspeichem der Programmteilc. 
Tippen Sie Listing 1 ab, und speichern 
Sie es unter "Cave.Bas“. Datalader 1 
unter “Cavel.Ldr" und Datalader 2 
unter "Cave2.Ldr" abspeichern. An¬ 
schließend müssen die Datalader mit 
RUN gestartet werden. Auf Kassette 
muß folgende Reihenfolge sein: 
Cave.Bas, Cave.mcl, Cave.mc2 

(Jens Köplinger/cd) 
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Kleb’ Dir einen 

Professioneller Button-Designer 

Mit dem Button-Designer steht Ihnen ein Programm zur Verfügung, mit 
dem Sie auf einfachste Weise Schilder, Beschriftungen oder Diskettenauf¬ 
kleber erstellen und ausdrucken können. Das Programm ist vollkommen 
über Pulldown-Menüs gesteuert und relativ einfach zu handhaben. 


Nach dem Programmstart erscheinen 
die einzelnen Menüpunkte und ein 
Pfeil, den Sie mit dem ersten oder 
zweiten Joystick oder mit den Cursor¬ 
tasten und der Return-Taste steuern 
können. Mit diesem Pfeil lassen sich 
die einzelnen Menüpunkte ’ anklicken’. 
Das ’Anklicken’ eines Menüpunktes 
geschieht folgendermaßen: 

Sie plazieren den Pfeil so, daß die Spit¬ 
ze auf den entsprechenden Menüpunkt 
zeigt. Nun wird der Feuerknopf ge¬ 
drückt und wieder losgelassen. Darauf¬ 
hin öffnet sich das Window. Das Win¬ 
dow läßt sich schließen, indem Sie den 
Mcnübalken wieder oben aus dem 
Window ’fahren’ und den Feuerknopf 
drücken. Die einzelnen Menüpunkte 
im Pulldown-Window werden eben¬ 
falls durch Druck auf den Feuerknopf 
’ angeklickt’. 

Für die Grafikoperationen kann der 
Pfeil übrigens auch pixelweise bewegt 
werden, so daß pixelgenaues Arbeiten 
ermöglicht wird. Dies geschieht, in¬ 
dem Sie die Shift-Taste gedrückt 
halten. 

Die Windows 

Text: 

Um Text auf die Arbeitsfläche zu brin¬ 
gen, müssen Sie das Feld unter ’Text- 
eingabe’ anklicken. Daraufhin er¬ 
scheint in diesem Feld ein Textcursor. 
Jetzt können Sie einige Wörter einge¬ 
ben. Das Textfeld wird durch < Re¬ 
turn > verlassen. Der Text erscheint 
jetzt auch am unteren Bildschirmrand 
in Proportionalschrift. Danach können 
Sie den Menüpunkt 'Text’ anwählen. 
Bewegen Sie den Menübalken auf den 
Punkt Text einfügen’, und drücken Sie 
<Fire>. Nun befindet sieh auf der 
Arbeitsfläche ein Rechteck, das Sie 
steuern können. Das Rechteck hat die 
Ausmaße des Textes, der am unteren 
Bildschirmrand steht. Durch Druck auf 
<Fire> wird der Text abgelegt. 
Im Window Text' befinden sich weite¬ 
re Menüpunkte, die für die verschiede¬ 
nen Darstellungsmöglichkeiten zustän¬ 
dig sind. Texte lassen sich in unter¬ 
schiedlichen Schriftarten, Höhen, 


Breiten, Neigungen (kursiv) und auf 
den Kopf gestellt darstellen. 

Grafik: 

'Widerrufen' - Hiermit wird die letzte 
Operation zurückgenommen (ausge¬ 
nommen 'Button laden'). 

'Kopieren’ — Nachdem sich das Win¬ 
dow geschlossen hat, können Sie auf 
der Arbeitsfläche einen Ausschnitt be¬ 
stimmen. Dieser Ausschnitt kann dann 
durch die Funktion 'Einsetzen' auf den 
Bildschirm gebracht werden. 

'Punkte' - Freihandzeichnen. 
'Vierecke' — Es sind zwei Eckpunkte 
zu bestimmen. Wenn Sie den ersten 
Eckpunkt des Vierecks an eine unge¬ 
wünschte Position gesetzt haben, müs¬ 
sen Sie das Viereck in das Feld über der 
'Texteingabe’ aufziehen und <Fire> 
drücken. Dadurch wird es gelöscht, 
und Sie können wieder den ersten Eck¬ 
punkt setzen. 

'Linien', 'Invertieren', 'Ausschnitt lö¬ 
schen’ — siehe 'Vierecke'. 
'Radiergummi' — Mit dem Radier¬ 
gummi läßt sich auch der Trennstrich 
zwischen Arbeitsfläche und Menüfeld 
löschen. Der Strich wird aber bei der 
nächsten Gelegenheit wieder vom Pro¬ 
gramm erneuert. 

'Bild löschen’ - Erklärung erübrigt 
sich. 

'Vergrößern' — Wenn Sie diesen 
Punkt angewählt haben, erscheint zu¬ 
nächst ein großes leeres Window. Be¬ 


wegen Sie den Pfeil auf die Arbeitsflä¬ 
che, und klicken Sie einen Punkt an. 
Jetzt verwandelt sich Ihr Pfeil in ein 
Rechteck, mit dem Sie einen Aus¬ 
schnitt auswählen können. Im Haupt- 
Window wird dabei dieser Ausschnitt 
vergrößert angezeigt. Nach einem wei¬ 
teren Druck auf den Feuerknopf ver¬ 
wandelt sich das Rechteck wieder in ei¬ 
nen Pfeil. Nun können Sie im Window 
einzelne Punkte setzen bzw. löschen. 
Durch Anklicken eines Punktes auf der 
Arbeitsfläche kann wieder ein neuer 
Ausschnitt angewählt werden. Durch 
einen Doppelklick auf der Arbeitsflä¬ 
che springt der Cursor zum alten Aus¬ 
schnitt und verwandelt sich dort in ein 
Rechteck. 

Datei: 

'Button laden’ - Diese Funktion ist 
leider unwiderruflich. Deshalb erfolgt 
vor dem Laden eine Sicherheitsab¬ 
frage. 

'Bild laden' - Mit dieser Funktion ist 
es möglich, ein Bild zu laden. Das Bild 
überdeckt den Bildschirm. Sie können 
nun einen Ausschnitt bestimmen, den 
Sie nach der Rückkehr zum normalen 
Screen mittels 'Einsetzen' (Grafik) auf 
die Arbeitsfläche bringen. 

'Button speichern’, 'Bild speichern', 
'Inhaltsverzeichnis' — Hierzu sind kei¬ 
ne Erläuterungen notwendig. Tritt ein 
Diskettenfehler auf, so ertönt ein Si¬ 
gnalton. 

Drucker: 

Hier lassen sich drei Druckstärken aus¬ 
wählen. Mit 'Button drucken' können 
Sie die Hardcopy-Routine starten. Vor 
dem Ausdruck muß allerdings die X- 
Position des Ausdrucks auf dem Papier 
angegeben werden. Sofern der 
Drucker ’on line' ist, kann die Hardco¬ 
py-Routine mit der Taste <Q> abge¬ 
brochen werden. 


Aufkleber aller An 
lassen sich einfach 
erstellen und drucken 
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Programm—i 


Hinweise: 

Der Punkt Text einfugen’ im Window 
Text' benutzt dieselbe Funktion wie 
der Punkt 'Kopieren' im Window 
‘Grafik’. Somit geht durch die Benut¬ 
zung der Textfunktion der im Puffer 
befindliche Grafikausschnitt verloren. 
Wenn Sie eine Funktion durch 'Wider¬ 
rufen' rückgängig gemacht haben, 
müssen Sie die auszuführende Opera¬ 
tion (wie Punkte, Linien,...) neu an¬ 
wählen. 

Praxistip zum Erstellen von 
(Disketten-)Aufklebern 

Hierfür benötigen Sie folgende Mate¬ 
rialien: 

- dünnes, breites, doppelseitiges Kle¬ 
beband (besorgen Sie das Klebeband 
am besten im Baumarkt, dort ist es er¬ 
heblich billiger) 

- selbstklebende Klarsichtfolie (nor¬ 
malerweise zum Büchereinpacken ge¬ 
dacht) 

Zur Aufklebererstellung gehen Sie nun 
folgendermaßen vor: 

- Schneiden Sie sich ein Stück Klar¬ 
sichtfolie aus, das etwas größer ist als 
der zukünftige Aufkleber. 


- Kleben Sie die Folie an der entspre¬ 
chenden Stelle auf das Papier (bedruck¬ 
te Seite). 

- Kleben Sie das doppelseitige Klebe¬ 
band an der Stelle auf die Rückseite des 
Papiers. Das Stück muß etwas größer 
sein als der zukünftige Aufkleber, 
wenn nötig, mehrere Klebestreifen ne¬ 
beneinander kleben. 

- Nun können Sie den fertigen Aufkle¬ 
ber aussch neiden. 

Druckeranpassung 

Die Druckroutine müßte eigentlich auf 
allen Epson-kompatiblen Druckern 
funktionieren. Über das Anpassungs¬ 
programm (Listing 5) ist eine Anpas¬ 
sung an andere Druckertypen möglich. 
Sie müssen lediglich die Steuercodes in 
den Datazeilen im Listing ändern und 
das Programm starten. Dabei ist fol¬ 
gendes zu beachten: 

Sie können bei jedem Druckerbefehl 
maximal zehn Bytes angeben. Das elfte 
Byte in jeder Datazeile gibt die Länge 
des Befehls an. In der Datazeile für den 
Grafikmodus existieren noch die Bytes 
12 und 13. Diese zeigen auf die Posi¬ 
tion der Steuer-Bytes nl und n2, die für 


die Punktspaltenanzahl im Grafikbe- 
fehl verantwortlich sind. Das erste 
Byte in der Datazeile ist dabei bereits 
Position 0. Der volle Befehl in der Da¬ 
tazeile lautet: 

27 42 01 nl n2 

nl ist dabei das Low-Byte der Punkt¬ 
spaltenanzahl und n2 das High-Byte. 
Eine Alternative zu diesem Grafikbe¬ 
fehl wäre: 

27 76 nl n2 

Die Datazeile im Anpassungslisting 
müßte dann heißen: 

120 DATA 27, 76, 0, 0, 0. 0, 0, 0, 0, 
0, 4,2,3 

Die Listings 

Listing 1 enthält das Hauptprogramm. 
Listing 2 und 3 sind Datalader und er¬ 
zeugen den M-Code für das Hauptpro¬ 
gramm. Listing 4 ist ebenfalls ein Da¬ 
talader und erzeugt die Grafik eines 
leeren Diskettenbuttons, den Sie mit 
dem Designer laden können. Listing 5 
ermöglicht die Anpassung an den je¬ 
weiligen Druckertyp. 

Für den Button-Designer ist ein Disket¬ 
tenlaufwerk notwendig. 

(Andreas Stroicek/jf) 


Programm: 

Artikel: 

464-664-6128 

CEUS 

Beim CEUS... 
Disk./Kass. 

;Eint rage in ' rsx ’ - 

Sprungtabel1e 

jp Cursor 


jp getic 


jp Icon 


jp deficn 


jp fill 


; E1ntr . in 'table' 

der RSX-Befehle 

defm "CURSO" 


de f b " R" + * 80 


de fm 'GETICO" 


defb "N"+»80 


defm ICO" 


defb ' N" + » 80 


defm "DEFICO" 


defb "N"+*80 


defm "F IL ” 


defb "L"+«80 


;Assemb 1 er 1 ist, der 

Befehls rout1nen 

Cursor: jRoutine für 

Cursorsteuerung 

push hl 

;Hl re tten 

ld hl,(vl) 

i X-Wert ln HL 

1d bc,lorx) 

;X0 nach BC 

sbc hl.be ;X0 von X abziehen 

ld (vl ) ,hl ; 

X-Wert eintragen 

ex de,h1 

;X-Wert nach DE 

ld hl , ( v2) 

;Y-Wert in HL 

1 d bc , ( o ry ) 

; Y0 nach BC 

sbc hl.be ;X0 von X abziehen 

ld ( v2 ) ,hl i 

X-Wert eintragen 

ld bc,0 ;Cursor-Stepp1ng auf 0 

Jp wa iAn fangen 

mit Darstellung 

w2 : push bc i Cursor 

-Stepping retten 

call ktest 

;Taste gedrückt? 

pop bc 

iStepping holen 

jp z, kn ; keine Taste? =) Step auf 0 

inc bc iStepping um 2 erhöhen 

ine bc ;(für höhere Auflösung des 

;Cu rso rs 

2 .i nc bc entf. ) 

pop hl ,Y-Wert 

vom Stack holen 

pop de ,X-Wert 

vom Stack holen 

push bc 

iStepping retten 

call * bd19 

;MC WAIT FLYBACK 

call putcuriCursor 

entf.(2.Invert.) 


call ktf 
pop bc 
pop hl 
pop de 
jP z , w3 
jP w4 

w3: push hl 
push bc 
call ktu 
pop bc 
pop hl 
jP 2,w5 
add hl.be 
Jp w6 

w5: push hl 
push bc 
call ktd 
pop bc 
pop hl 
j p z , w 6 
sbc hl.be 

w6: push hl 
push bc 
call ktl 
pop bc 
pop hl 
Jp z,w7 
ex de,hl 
sbc hl,bc 
ex de,hI 
jp w8 

»7: push hl 
push bc 
call kt r , 
pop bc 
pop hl 
JP z,w8 
ex de.hl 
add hl.be 
ex de,h1 

w8: push bc 
push de 
ex de,hl 
ld bc.639 
sbc hl.be 
ex de,hl 
bit 7,d 
pop de 
pop bc 
Jp nz.wwO 
ld de,639 

wwO: push hl 
push bc 
ld bc,399 
sbc hl.be 
bit 7,h 


;Feuer/Copy gedrückt? 

;Stepping holen 
;Y holen 
;X holen 
;nicht gedrückt? weiter 
;an Ende 
;Y retten 
;Stepping retten 
;Taste ’runter gedrückt? 

;Stepping holen 
; Y holen 
;n1cht gedrückt? weiter 
iStepping zu Y addieren 
iAbfrage 'hoch - überspr. 
;Abfrage 'hoch',wie für 
; runte r 

;Taste für hoch gedrückt? 


;ja? ==> Y=Y-Steoping 
;Abfrage für 'links' 


;Taste für links gedrückt? 


; X-Wert nach HL 
;ja? ==> X=X-Stepping 
;X-Wert zurück nach DE 
;Abfrage 'rechts' überspr. 

iAbfrage für rechts 

Taste rechts' gedrückt? 


; Ja? dann X = X + Stepping 

iStepping retten 
;X retten 
; X nach HL; Y nach OE 
;0C=Xmax 
;X=X-Xmax 
;V zurück nach HL 
iErgebnis negativ? 

; X holen 
iStepping holen 

iX-Xmax<XO? dann weiter 

;sonst X = Xma x 
;Y retten 
;Stepping retten 
;BC=Ymax 
; Y=Y-Ymax 
iErgebnis negativ? 


pop bc 
pop hl 
j p nz,ww 
ld hl.399 
ww : bit 7 , h 
j p z , wwl 
ld hl .0 
wwl: bit 7,d 
J p z.ww3 
ld de,0 
ww3: push de 
push hl 
push de 
push hl 
push bc 
1d (vl).de 
ld (v 2 ),hl 
call putcur ;Curso 
pop bc 
jp w2 


iStepping holen 
;Y holen 

;Y-Ymax<YO? dann weiter 
isonst Y=Ymax 
inegative Koordinate? 
;Y positiv? dann weiter 
isonst Y=0 
.Koordinate negativ? 
;X positiv? dann weiter 
isonst X=0 
;X retten 
;Y retten 
;X retten 
;Y retten 
iStepping retten 
; X nach XPOS 
; Y nach YPOS 
darst.( i nvert, > 
iStepping holen 
;we 1 ter bei w 2 


w4: ld hl,(vl) ; X-Koordinate nach HL 
ld bc.(orx) ;X-Ortg1n nach BC 

add hl,bc ; X=X*X0 

ld (vl).hl ;X-Koord:nate schreiben 
ld hl ,( v2 ) i Y-Koordina te berichtigen 
ld bc,(ory) 
add hl.be 
ld ( v2 >, h1 

pop hl ;Stack aufräumen 

w4a; call #bdl9 ;Tastaturbuf. leeren 
ret nc ; schon leer? dann fertig! 
jp w4a ;sonst nochmal leeren 

kn: ;wenn keine Taste gedrückt: 

ld bc.O iStepping löschen 

jp w 2 ;und wieder nach w2 


vl: equ «b697 
v2; equ #b699 
smode: equ *b7c3 

orx: equ #b693 

ory: equ #b695 


XPOS ;CPC 464:B32C 
YPOS B32E 

B11dsch 1 rmmode 
CPC 464:B1C8 
Origin X-Wert 
CPC 464:B3 2 8 
Y-Wert ;B32A 


mshift:push 
push de 
xo r a 
ld d , a 
ld b, 4 
msh 1 : s 1 a c 
rl a 
sl a c 
rlc d 
djnz mshl 
o r d 
pop de 


bc iBItpos. nach links 
;BC und 0E retten 
; Akku löschen 
;und D löschen 
i4 Durchgänge 
iMaske in C nach links 
;Carry ln Akku rollen 
Maske nochmal nach links 
;und Carry in D rollen 
; und alles 4 mal 
;Akku und 0 verknüpfen 
;DE und BC wieder holen 
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I—Listing 


pop bc 

ld c,a;und neue Maske wieder nach C 
ret I und zu rück 

putcur: [Routine für Cursordarst. 

; (Invertlerung) 
sr! h ;DE durch 2 teilen 

rr 1 

ld a, (smode) [Bildmodus in Akku 

push af ;Modus retten 

ld a,2 ;Mode 2 vortäuschen 

1 d (smode), a 

puteuO: [Blldadr. in HL, 

[Bytemaske für Pkt. In C 
call «bcld ;SCR DOT POSITION 

pop af [Originalmodus holen 

ld (smode),a ; und wiederherstel len 
ld de,curmat;Adr.d. Curs.ma tr. in OE 
ld b,8 [Lange der Matrix nach B 

push bc ; BC retten 

ld bc,8 [Länge der Matrix nach BC 
ld a, (smode) [Modus nach A 

or a ;= 0 ? 

jp z ,putcuc [dann weiter für Mode 0 
ex de, hl [sonst HL und OE tauschen 
add hl,bc ; HL auf Matrix für Mode 1 
ex de, hl [und zurücktauschen 

dec a ; A= 1 ? 

Jp z.putcua [dann weiter für Mode 1 
ex de,hl [sonst nochmal tauschen 

add hl.bc [HL auf Matrix für Mode 2 
ex de, hl ;und zu rücktauschen 

pop bc ;BC holen 

putcbl:ld a,(de);Byte ausMat.in Akku 
push bc , BC retten 

ld b,0 ;B löschen 

putcb2:sla a [Akku nach links 

r1 b [und Carry in B rollen 

arl c [C nach rechts schieben 

jp nc,putcb2 [bis Carryilbertrag 

push af ,Akku und Flags retten 

ld a,b ;B in Akku 

xor (hl) [dann mit Blldadr. Invert. 
ld (hl ), a [und in Bild schreiben 
pop af ; AF ho 1 en 

inc hl ;Bi 1dsch1rmadr erhöhen 

xor (hl) [Akku mit Blldadr Invert. 
ld (hl),a [und in Bild schreiben 
dec hl [Blldadr wieder verkleinern 
call # bc2 6 [SCR NEXT LINE 

pop bc ; BC holen 

inc de [Matrixadr erhöhen 

djnz putcbl [und Schleife bis 8=0 
ret [fertig! 

putcua:pop bc [Routine für Mode 1 

call mshift [Bitmaske an Mode anp. 

putca 1 : 1d a,(de);Byte a. Matrix Akku 
push bc ;BC retten 

ld b,0 ;B löschen 

putca2:sla a [Akku nach links 

rl b ,und Ca r ry in B rollen 

srl c ;C nach rechts schieben 

jp nc,putca2 [bis Carryübcrtrag 

sla b [ B um A Stellen nach links 
s 1 a b 
sla b 
sla b 

push af ;Akku und Flags retten 

1d a,b ;B in Akku 

xor (hl) [dann mit Bildadr. invert. 

ld (hl),a ;und in Bild schreiben 
pop af ;AF hol en 

inc hl ;Bi 1 dschirmadr erhöhen 

xor (hl) [Akku mit Bildadr invert. 
ld ( h 1 ) , a ;und sin Bi.ld schreiben 
dec hl [Bildadr wieder verkleinern 
call Sbc26 [SCR NEXT LINE 

pop bc [BC holen 

inc de [Matrixadr erhöhen 

djnz putcal ;und Schleife bis B=0 

ret [fertig! 


putcucipop bc 
ca 1 1 mshift 

call mshift 
putccl:Id a,(de) 


[Darst. für Mode 0 
lBitmaske an Mode 
;anpassen 


[Byte aus Matrix 
; 1 n Akku 

push bc ;BC retten 

1d b,0 [BlÖschen 

putcc2:s1a a [Akku nach links 

rl b [und Carry in 8 rollen 

srl c ;C nach rechts schieben 

jp nc,putcc2 [Weiter bis 

[Car ryübertrag 
sla b [B um 6 Stellen nach links 
sla b 
sla b 
sla b 
sla b 
sla b 

push af [Akku und Flags retten 

lda.b ;B in Akku 

xor (hl) [dann mit Bildadr. Invert. 
ld (hl),a ;und in Bild schreiben 
pop af 1AF holen 

inc hl ;Bl 1dschirmadr erhöhen 

xor (hl) [Akku mit Bildadr Invert. 
ld (hl),a ;und sin Bild schreiben 
dec hl [Bildadr wie der verkleinern 


call #bc 26 
pop bc 
1 nc de 
djnz putccl 
ret 


[SCR NEXT LINE 
; BC holen 
[Matrixadr erhöhen 
[und Schleife bis B=0 
;fertig! 


curmat: [die Cursormatr1zen für 

cu rmaO: ;Mode 0 . . . 

defb # 80 ,# 80 ,*c 0 ,#c 0 
defb «40,#40,«40,#00 
curmal: i.. ,Mode 1 . , , 

defb # 80 ,»cO,#e0,#f0 

defb #e0,#a0,#10,#10 
curma2: [...und Mode 2, 

defb » 80 ,#e0.#f8,#fe 
defb #f8,«dB.#8c,#06 

ktf: ;Feuer/Copy gedrückt? 

ld a,76 [Tastennummer ln Akku 

cal1 «bble ;KM TEST KEY 

ret nz [gedrückt? dann zurück 

ld a,9 [sonst nächste Tastennummer 
call «bble [KM TEST KEY 

ret ;und zurück 

ktu: [Taste hoch? 

ld a.72 
call «bble 
ret nz 
ld a , 0 
call «bble 
ret 

ktd: [Taste 'runter? 

1 d a,73 
call «bble 
ret nz 
ld a , 2 
call «bble 
ret 

ktl : ; Taste 1inks? 

ld a,74 

call «bble 
ret nz 
ld a , 8 
call «bble 
ret 

ktr: [Taste rechts? 

ld a,75 
call «bble 
ret nz 
ld a, 1 
call «bble 
ret 

ktest: [testet, ob irgendeine der 

[Steuertasten gedrückt ist 

ld a , 9 
call «bble 
ret nz 
ld a,76 
cal1 «bble 
ret nz 
xor a 

cal1 «bble 
ret nz 
ld a,72 
call «bble 
ret nz 
ld a, 2 
cal1 «bble 
ret n z 
ld a,73 
call «bble 
ret nz 
1 d a , 1 
call «bble 
ret nz 
ld a,75 
call «bble 
ret nz 
ld a, 8 
call «bble 
ret nz 
ld a.74 
call «bble 
ret 


getic: 


cp 1 

j p m,opmis 


[Liest mit dem Cursor 
[ein Icon ein 
;1 Paramete r ? 
;wenige r? 
;'Operand mlsslng' 
jp nz, imparg [mehr? 

['Improper Argument' 
getic0:ld a,(maxmen) ;Anz. der Icons 
or a [=0? 

jp z.giout [dann Ende 

ld (mpunkt).a [sonst Akku in Zahler 
geticlicall Cursor [Cursor steuern 
ld de, (vl) ;XP0S in DE 

xor a [Akku löschen 

ld hl.xtab [HL auf Tab. der X-Werte 
xtest ld c,(hl) ;BC aus Tab. lesen 
Inc hl 
ld b,(hl) 

inc hl .Zeiger auf nächsten Eintrag 
ex de,hl [XPOS in HL 

sbc hl,bc ;XPOS-Tabel1enwert 

jp m.xwelt ; XOPS<X-Wert? 

[kein Treffer 
ex de,hl ;XPOS wieoer nach DE 

xor a 


cp h 

j p nz,xweit 
ld a,47 
cp 1 

jp m,xweit 
1 d de, < v2) 


; H=0? 
; dann Fehl er 
;Iconlänge-l nach A 
;XPOS-Xwert<=Länge? 
[dann kein Treffer 
;YPOS nach DE 


ld bc,510 [Länge d,Tab.-2 nach BC 
add hl.bc [Zeiger auf Eint, in YTAB 
ytest: ld c,(hl) [Test des Y-Wertes 
inc hl [wie bei xtest 

1d b,(hl ) 
ex de, hl 

push hl ; BC und HL tauschen 

push bc 

pop hl 

pop bc 

sbc hl', bc 

J p m,yweit 

xor a 

cp h 

j p nz , ywe1t 
ld a,47 
cp 1 

J p m,ywe 1 t 

ld a,(mpunkt)[Treffer : Counter in B 
1 d b , a 

ld a,(maxmen);Anzahl der Icons in A 
sub b [Differenz ln BC 

1 d c , a 
ld b , 0 

ld hl.iclst [Adr.der Iconnr. in HL 
add hl.bc [Zeiger auf Iconnr. 

ld a,(hl ) [Iconnr. in Akku 

giout: ld !,(ix+0) [und als Param. 

; zurückgeoen 

1d h,(1x+1) 
ld (hl ) ,a 

ret ; fertig 

xweit: 

ex de, hl [Adr. von XTAB in HL 

ld de, (vl) [XPOS wieder einiesen 

ld a, (mpunkt) [Zähler lesen 

dec a [Zähler vermindern 

jp z.geticO [=0? dann von vorne 

ld (mpunkt),a [Zähler zurück 

Jp xtest [und weiter testen 

ywe i t: 

ex de, hl .Adresse von Ytab in HL 

ld bc,511 [wieder in Xtab wanoeln 
ld de,(v2> [XPOS wieder in de 

ld a,(mpunkt) [Zähler in A... 

dec a ;...vermindern 

jp z.geticO [und von vorne wenn 0 

Jp xtest [sonst nächster X-Wert 

mpunkt:cefs 1 [2ähler 

maxmen:defs 1 ,Anz, der darg. Icons 

xtab: defs 512 [Tabelle der X-Werte 
ytab: defs 512 ; Tabelle der Y-Werte 
ictab: defs 256 [Tabelle der Iconnr. 
icadr; defs 512 [Tabelle der Iconad. 
iclst: defs 256 [Liste darg. Icons 

Iccnt: defs 1 [Anzahl der def. Icons 

defs 1 [und Nullbyte 

icon: [Stellt das Icon mit der 

[Nummer n an X,Y dar. 
cp 3 [3 Parameter? 

Jp m.opmis 
j p nz, imparg 

ld a, (maxmen) ; Anz.d.da r gest.Ics 

[nach A 

cp «ff [schon 255? 

Jpz, imparg [dann Fehler 

ld hl,ictab ;Adr.d.Icontab. nach HL 
ld a,(1ccnt);Anz.d.def.Icons nach A 

or a ; =0? 

Jp z.imparg [dann Fehler 

ldb.a [Anzahl nach 8 

ld a.(ixtO) ;Nr, darzust.Ics nach A 

ica: inc hl ;auf ersten Eintrag 

cp (hl) [In der Liste? 

jp z.icb [dann weiter 

djnz ica .nächste Stelle prüfen 

jp Imparg [nicht in Liste? Fehler! 
icb: ld c,a ;Nr. des Icons nach BC 
ld b, 0 

ld hl,icadr ;Adress tabe11 e nach HL 
add hl.bc [Iconnummer addieren 

add hl.bc ;2mal, weil 2 Byte 

ld e,(hl) ;Adr.d.Icons aus Tabelle 
1nc hl ;1n OE 

ld d,(hl ) 

push de ;und Adresse retten 

ld c,(1x+2) [Koordinaten holen 

ld d,(ix+3) 
ld 1 ,(1 x + 4) 
ld h,(1 x+ 5 ) 

srl h [Y-Wert durch 2 teilen 

r r 1 

ld a,(smode) [Bildschirmmodus holen 
push af [und retten 

ld a, 2 [Mode 2 vortäuschen 

1 d {smode),a 

call «bc ld ;SCR DOT POSITION 

pop af [Bildschirmmodus holen 

ld (smode),a [und wieder einsetzen 
pop de [Iconadresse holen 

ex de, hl ;DE und HL tauschen 
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Listing—i 


ld b,24 

; Zei1enzah1 in B 

icc: push bc 

;B retten 

push de 

; Bildschirmadr retten 

1 d bc , 6 

;6 Byte 

1 d i r ; i n 

Bildspeicher schreiben 

pop de 

;BiIdadr. holen 

pop bc 

;B holen 

ex de,h1 

;Bi1dschirmadr nach HL 

cal1 *bc 26 

;SCR NEXT LINE 

ex de,hl ;Adressen zurücktauschen 

djnz icc 

; und weiter bis B = 0 

ld hl ,1c1 st 

; Iconl1ste nach HL 

ld a,(maxmen) 

; Anz.d,dge.I cs nach A 

ine a 

;um 1 erhöhen 

1d (maxmen),a 

;und zurückschreiben 

ld c,a ;8C=An z. d, dgest. Icons 

ld b, 0 

dec bc 

; -1 

add hl.be 

;neue Pos.in 
; Icon 1 st nach ML 

ld a, (ix+ 0 ) 

;Nummer des Icons 

ld (hl),a 

; eint ragen 

1 d h1 ,xtab 

;Adresse der X-Werte 

add hl.be ; 

add hl.be 

neues Icon +2* Iconnr. 

ld a,(ix + 4 ) ;und X-Wert für neu Icon 

ld (hl ) , a 

1 nc hl 

1d a,(ix+5) 
ld (hl),a 

;e1n t ragen 

ld hl,ytab 
add hl.be 
add h 1 , bc 

;Tabelle für Y-Werte 

ld a,(ix + 2 ) 
ld (hl ) ,a 
i nc hl 
ld a , ( i x + 3 ) 
ld (hl),a 

;und Y-Wert eintragen 

ret 

; fertig! 

mpatch : 

; patcht SCR SET MODE 

1 d hl,»bcOe 

; HL auf SCR SET MODE 

ld de,mpr2 

; DE auf Patchroutine 

1d bc , 3 

;3 Byte 

1 d i r 

; kopieren 

ld a,«c3 

;Obcode für ’jp 1 

1d (# bcOe ) , a 

;nach SCR SET MODE 

ld hl.mpr ;Adresse d. Patchroutine 

ld ( »bcOf),hl 

in SCR SET MODE eint. 

ret 

; fertig! 

mpr : 

;Patchrout 1 ne 

push af 

,Mode retten 

xor a 

;Akku löschen 

1 d (maxmen),a 

;und Tab. d, dargest. 

1 Icons initialisieren 

pop af 

; Mode ho 1 en 

mpr2 : defs 3 

Hier kommt der Sprung 

; auf 

die alte SCR SET MOOE 
; Routine hin 

def1cn ; cp 2 
j p m,opmis 
j p nz, 1 mpa rg 

;2 Parameter? 

1d a , ( iccnt ) 

; Anz. d. def. Icons 

cp *ff 

; schon 25S? 

j p z, impa r g 

; dann Fehler 

ld 1,(1x+O ) 

; Ad r. der 
; IconStringsParameter 

ld h,( 1 x + 1) 

;nach HL 

ld a,(hl ) 

; Länge des St rings 

cp 145 

; >144? 

j p p,impa rg 

; dann Fehler 

1 d c , a 
ld b, 0 

;sonst Länge nach BC 

push bc 

;Stringlänge retten 

ld a , ( iccnt) 

; Ietnanz . holen 

1 d c, a 

;und nach c 

0 r a 

; Anzahl=0? 

j p z.deficl 

; dann nicht in Liste 

ld hl,Ictab 

ilcontabelle nach HL 

ld a , ( 1 x + 2 ) 

; Iconnummer nach A 

epi r 

;in Liste enthalten? 

jp nz,deficl 

1 d c , ( i x + 2 > 
ld b , 0 

; nein? dann weiter 

;Iconnummer nach BC 

ld hl.icadr ;Iconadr. Tab. nach HL 

add hl.be .Zeiger auf Iconeintrag 

add hl.be 

ld e,(hl) ;Adr. des Icons nach DE 

inc hl 
ld d,(hl ) 

ex de,hl 

;DE und HL tauschen 

jp defic2 ;und 

Speicherreservierung 
; überspringen 

def 1 cl :1 d hl , ( himem ) 

; Hlmem-Zeigcr nach HL 

ld bc,144 ; Länge d.Platzes für Icon 

sbc hl.be 

; Abz 1 ehen 

push hl ;und 

neuen Zeiger nach DE 

pop de 

; und HL 

push hl 

; Zeiger retten 

cal1 getmem 

;Platz reservieren 

pop h 1 

; Zeiger holen 

defic2 ; pop bc 

; St ring 1 änge holen 

push hl 

.Zeiger retten 

ld 1,(ix+0) 
ld h,(ix+ 1 ) 

;HL auf Stringdeskr. 

inc hl 

;HL auf St r1ngad r. 

ld e,(hl ) 
inc hl 
ld d, (hl) 

;Stringadr. nach OE 


pop hl 

; Zeiger wieder holen 

push hl 

ilconadr. retten 

ex de,hl 

;DE und HL tauschen 

ldir ;Icon in Bereich kopieren 

pop de 

; Iconadr. holen 

1 d hl.icadr; 

Adr.d. Adr.tab. nach HL 

ld c,(1x + 2 ) 

; Nr. des Icons nach BC 

ld b, 0 


add hl.be ; 

und 2mal zu hl addieren 

add hl.be 


ld (hl ) .e 

lAdresse des Icons in 

inc hl 

; Tabel1e eint ragen 

ld (hl),d 


1d a,(1ccnt) 

;Anzahl der Icons 

i nc a 

;e r höhen 

1 d (iccnt),a 

;und zurück schr eiben 

1 d c , a 

;Anzahl nach BC 

1 d hl .ictab 

;Tab. d,Iconnr. nach HL 

add hl.be 

;Zeiger auf neuen Platz 

ld a, (ix + 2) 

;und Iconnummer 

ld (hl).a 

;eint ragen 

ret 

; fertig! 

fill: ; 

Füllt den Bildspeicher 

cp 1 

;1 Parameter? 

J p m,opmis 


jp nz,Imparg 


ld c, ( 1 x + 0 ) 

;Fü11byte nach C 

ld hl,»cOOO 

;Anfangsadr. d. Btldsp. 

.nach HL 


ld de , *50c6; 

3reite und Höhe nach DE 

jp *bc4 7 

;SCR FLOOD BOX 

;01ese Routine muß in 'MEMFRE' vor 

;'LD HL.WINADR' eingefügt werden 

1d hl,icadr 

; Icon-Adr. nach HL 

xor a ;Iconzähler initialisieren 

memfrlrld c . (h1 ) ;Ad r, aus Tab.nach BC 

inc hl 


ld b,(hl) 


Inc hl 


push hl 

;Adresse retten 

ld hl,144 

;Iconlänge nach HL 

add hl,bc 

Adr.hinter Icon nach HL 

sbc hl.de 

;=Adr. des Bereichs? 

pop hl ; 

Adr. der Tabelle holen 

J p z,pushic 

;wenn =:Icon hochkop. 

dec a 

;sonst nächstes Icon 

jp nz.memfrl 


;Diese 

Routine gehört auch zu 


;MEMFRE. Sie 

;muß aber hinter der MEMFRE-Routine 

; ei ngefügt 

werden, da sie nur als 

;Unterprogramm angesprungen wird. 

pushic: ;kop 1 ert ein Icon 'hoch 

1d bc . 144 

; Icon 1änge nach BC 

push hl 

;Adresstab. retten 

1d de,(wadr) 

.Bereichsadr. nach DE 

ld hl.(wlaeng) ;Ber.länge nach HL 

add hl.de 

;Zeiger nach Bereich 

dec de 

; DE auf Iconende 

dec hl 

;HL auf Bereichsende 

ex de.hl 

;DE und HL tauschen 

1 dd r 

;window kopie ren 

inc hi ;neue Bereichsadr. nach hl 

i nc de 

; neue Iconadr. nach DE 

1d (wad r),hl 

Bereichsadr. eintragen 

pop hl 

;Adresstabe11e holen 

dec hl ;neue 

Iconadresse eintragen 

ld (hl ) ,d 


dec hl 


ld (hl ) ,e 


Jp memfrO 

;und nochmal testen 

iOe r 'RET' im 

Initialtsierungstei1 

;der RSX-Befehle muß ersetzt werden 

Jp mpatch 


Programm: 

Maus 2 

Artikel: 

Mit Käsestück... 

PC 


•ifndef NO_EXT 

_KEYS /* Erweiterungen 


* eingeschaltet »/ 

»define CDECL cdecl 

• el se 

/* Erweiterungen 

* nicht eingeschaltet */ 

•define CDECL 

•endif 

/* NO_EXT_KEYS */ 

/* Allg. Struktur zur Rückgabe der 

* Position und des Status */ 

struct M_POINT 


unsigned 

xpos, 


ypo3, 


buttonstatus, 


buttoncount; 

>: 

/* Für den Graphikcursor »/ 

Struct M_GRAPHCURSOR 
{ 

unslgned x_spot, 

y_spot; 

unslgned screenmask[16]; 

unslgned cu rso rmask[1 6 ]; 

}; 

/»Oef., die die Arbeit erleichtern*/ 


•define LEFT_BUTTON 0 

»define RIGHT_BUTTON 1 

»define SOFT 0 

•define HARD I 

•define CURSOR_C HANGE 1' 

•define L£FT_PRESSED 2 

•define LEFT_RELEASEO 4 

•define RIGHT_PRESSEO 8 

• define RI GHT_REL£ ASE D 16 

•define SH1FT_PRESSED 32 

•define CTRL_PRESSEO 64 

•define ALT_PRESSEO 12B 

•define INTS_0 o 

•define INTS_30 l 

•define INTS_50 2 

•define INTS_100 3 

•define INTS_200 4 

•define ENGLAND 0 

•define FRANCE i 

•define HOLLAND 2 

•define GERMANY 3 

•define SWEDEN 4 

•define FINLAND 5 

•define SPAIN 6 

•define PORTUGAL 7 

•define ITALY 8 

•define BUS_MAUS 1 

•define SER_MAUS 2 

•define INPORT_MAUS 3 

•define PS2_MAUS 4 

•define HP_MAUS 5 


/» Deklarationen der Funktionen */ 

unslgned int _CDECL m_reset 

< void ); 

void _COECL m_showcursor 

( void ) ; 

void _COECL m_hidecursor 

( void ) ; 

struct M_POINT * _C0ECL m_pos 

( struct \ M_POINT »Status ); 
unslgned int _CDECL m_xpos 

( void ) ; 

unslgned int _CDECL m_ypos 

( void ) ; 

void _CDECL m_setpos 

( unslgned xpos, unslgned ypos >; 

struct M_POINT * _CDECL m_getpress( 
int button, struct M_POINT »status); 
struct M_POINT * _CDECL m_getrelease 
(int button,struct M_POINT »Status); 
unslgned int _COECL m_Ieftpressed( 

void ); 

unslgned int _COECL m_r1ghtpres3ed( 

void ) ; 

unslgned Int _CDECL m_leftre 1eased( 

void ) ; 

unsigned int _CDECL m_r 1 ghtre 1eased( 

void ) ; 

void _CDECL m_se tmaxx( 

unsigned min, unslgned max); 
void _CDECL m_setmaxy( 

unsigned min, unslgned max); 
void _CDECL m_graphcursor( 

struct \ M_GRAPHCURSOR »Cursor ); 
void _CDECL m_textcursor( 

unsigned int \ art, unslgned 
Int screen, unsigned int Cursor); 
void _CDECL m_counters( 

unslgned int \ »xcount, unsigned 
1 nt »ycount ) ; 

void _CDECL m_setroutinal 

unsigned int \ eventmask, void 
(far »user)() ); 

void _CDECL m_11ghton( void ); 

void _COECL m_lightoff( void ); 

void _CDECL m_set rat1o( 

unslgned Int xrat, unsigned 
int y rat); 

void _CDECL m_conditionaloff( 
unsigned \ int upperx, 

unsigned int uppery, 
unsigned Int lowerx, 
unsigned int lowery ); 
void _COECL m_settreshold( 

unslgned \ Int tresh ); 
(_CDECL far * _CDECL m_swabroutinei 
unslgned \ int eventmask, 
unslgned int »oldmask, 
void (far »user )())>(); 
unsigned int _CDECL m_storage( 
void ) ; 
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vo id _CDECL m_savesta te( 

unsigned \ char far »array ); 
void CDECL m_restorestate( 

unsigned \ char far «array ); 
, nt _C 0 ECL m_setaltroutine \ 

(unaigned int eventmask, void 
(far *user)() >; 

( CDECL far * _CDECL m_geta1troutine 
" \ ( unsigned Int eventmask ))(); 

VO id _CDECL m_setsenaitlvity \ 

( unsigned Int hör, 
unsigned int ver, 
unsigned int tresh ); 
void _COECL m_getsensitlvity \ 

( unsigned int «hör, 
unslgned int »ver, 
unsigned int »tresh >; 
void CDECL m setintrate( unsigned \ 
- int rate ); 

void CDECL m_setcrtpage( unsigned \ 
_ int crtpage ) , 

unsigned Int _CDECL m_getcrtpage( 
void ); 

(Interrupt far * _CDECL m_d1sable( 
void ))(); 

void _CDECL m.enablel void ); 

int _CDECL m_softreset( void ); 

void CDECL m_setlanguage( 

unsigned \ int 'anguage ); 
unsigned int _CDECL m_get 1 anguage( 

void ); 

v0 1d _CDECL m_getversion< \ 

unsigned int »Version, 
unsigned char »Irgnr, 
unsigned char »typ ); 


«include "maus.h" 

/* Da die FP_SEG und FP_OFF Makros 
von Microsoft ein bi flehen 
merkwürdig sind, sollte man sich 
ein paar neue definieren 
(Jedenfalls für gewisse Zwecke)*/ 
»deflne FP_OFF(fp) ((uns 1gned)(fp)) 
«deflne FP_SEG(fp) ((unsigned 

((unsigned \1ong)(fp> >> 1 6>) 

/* Ausschalten der Stackprüfung */ 
•pragma check_stack( off ) 

/* Initialisierung des Maustreiber 
Return: 0 == Treiber vorhanden 

1 == T. nicht vorhanden*/ 
unsigned int m_reset( void ) 

{ 

_asm 

{ 

xor ax, ax 

int 0x33 

ine ax 

) 

} 

/* Einschalten des Maus-Cursors */ 
void m_showcursor( void ) 

{ 

asm 

{ 

mov ax, 1 

int 0x33 

) 

) 

/» Auschalten des Mauscursors */ 
void m_hidecursor( void ) 

{ 

_asm 

( 

mov ax. 2 

Int 0x33 

} 

} 

/* Position und Buttonstatus, wird 

ln m_P 0INT Struktur übertragen */ 

struct M POINT * m_pos( register 

struct \ M_POINT »Status ) 

/* Da wir mit einem Zeiger arbeiten, 
müssen wir die Ergebnisse des 
Int 0x33 erst Zwischenspeichern 
(sonst funkt der Compiler bei den 
Registern kräftig dazwischen, da er, 
je nach Optimierung, diverse 
Register bei Zeigeroperationen 
beansprucht ). */ 

unsigned Int x, y, stat; 


mov 

Int 

mov 

mov 

mov 


ax , 3 
0x33 
X , cx 

y , d x 
stat, bx 


Status- >xpos = x; 

Status- > ypos = y; 

statu^buttOnstatu^^U^ 
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/» Zu den lokalen Var. s. m_pos */ 
unsigned Int segment, off; 

Segment = FP_SEG( user ); 
off = FP_OFF< user ) ; 

_asm 

{ 

mov ax, 12 

mov cx, eventmask 

mov dx, off 

mov es, segment 

Int 0x33 

) 

) 

/* An/aus der L1gh tpenemu1at ion */ 
vold m_11ghton( vold ) 

{ 

_asm 

( 

mov ax, 13 

int 0x33 

) 

> 

vold m_11ghtoff( vold ) 

( 

_asm 

{ 

mov ax, 14 

int 0x33 

) 

} 


/* Wieviele Pi xe1 =m1 ckoys */ 
vold m_setrat iot unsigned int xrat, 
unsigned int yrat ) 

{ 

_asm 

( 

mov ax, 15 

mov cx, xrat 

mov dx, yrat 

int 0x33 

) 

} 


/• Festlegung des Bi1dbereiches, wo 
mauscursor unsichtbar ist */ 
votd m_cond1 ti ona1off< 

unsigned Int upperx, 
unsigned int uppery, 
unsigned int lower», 
unsigned int lowery ) 

{ 


asm 

T 

mov ax, 16 

mov cx, upperx 

mov dx, uppery 

mov si , 1 Owe r x 

mov di, 1 owery 

int 0x33 

> 

void m_settreshol d( 

unsigned int tresh ) 


{ 


_asm 

{ 

mov 
mov 
i nt 

} 

) 

( far * 


ax , 19 
dx , tresh 
0x33 


m_swabrout1 ne( 

unsigned int eventmask 
unsigned int »oldmask, 
vold (far »user)())){) 


{ 

/» Zu den lokalen Var. s. m_pos */ 
unsigned int segment, off; 
unsigned int old; 


segment = FP_SEG( user ); 
off = FP_OFF( user ); 
_asm 

T 

mov ax, 20 

mov cx, eventmask 

mov dx, off 

mov es, segment 

int 0x33 

mov old, cx 

mov ax, dx 

mov dx, es 

) 

»oldmask = old; 


unsigned int m_storage( void ) 

{ 


asm 

I 

mov ax, 21 

int 0x33 

mov ax, bx 

} 

) 


void m_savestate( unsigned char 
far »array ) 

{ 

/* Zu den lokalen Var. s. m_pos */ 
unsigned int segment, off; 

segment = FP_SEG{ array }; 

off = F P_ 0 F F( array ); 

asm 

T 

push ds 

mov ax, 22 

mov ds, segment 

mov dx, off 

Int 0x33 

pop ds 

) 

} 

vold m_r estor estäte( unsigned 

char far »array ) 

{ 

/» Zu den lokalen Var. s. m_pos */ 
unsigned Int segment, off; 

segment = FP_SEG( array ); 
off = FP_OFF{ array ) ; 
asm 


} 


mov 
mov 
mov 
1 nt 


ax, 23 
dx, off 
es, segment 
0x33 


) 

int m_setaltroutine( unsigned int 

eventmask, void (far *user)() ) 

< 

/» Zu den lokalen Var, s. m_p03 */ 

unsigned Int segment, off; 

segment = FP_SEG( user ); 
off = F P_OF F( user ); 

_asm 

I 

mov ax, 24 

mov cx, eventmask 

mov dx, off 

mov es, segment 

Int 0x33 

} 

} 

( far * m_getaltroutine( 

unsigned int \ eventmask ))() 

{ 

_asm 

{ 

mov ax, 25 

mov cx, eventmask 

int 0x33 

cmp ax, -1 

Jnz routlne 

xor bx, bx 

xor dx, dx 

routine: 

mov ax, dx 

mov dx, bx 

) 

) 

vold m_setsens itiv 1ty ( 

unslgned int hör, 
unsigned int ver, 
unsigned int tresh) 

_asm 

{ 

mov ax, 26 

mov bx, hör 

mov cx, ver 

mov dx, tresh 

int 0x33 

) 

} 

/» Skailerungswerte */ 
void m_getsens i ti vi ty( 

unsigned int »hör, 
unsigned int »ver, 

^ unsigned Int »tresh) 

/» Zu den lokalen Var. s. m_pos »/ 
unsigned int h, v, t; 


mov 
1 nt 
mov 
mov 
mov 


ax, 27 
0x33 
h, bx 
v, cx 
t, dx 


»hör = h; 

»ver = v; 

»tresh = t; 

) 

void m_setintrate(unsi gned int rate) 
{ 

_asm 

{ 


mov 

mov 

Int 


ax, 28 
bx, rate 
0x33 


} 


/* Bildschirmseite setzen »/ 
void m_setcrtpage< 

unsigned int crtpage ) 

{ 

_asm 

{ 

mov ax, 29 

mov bx, crtpage 

int 0x33 

) 

} 

/* Bildschirmseite zurück */ 
unsigned int m_getcrtpage( void ) 

{ 


mov 

int 

mov 


ax, 30 
0x33 
ax, bx 


(Interrupt far « m_disable( 

void ))() 


mov 

ax , 

31 

1 nt 

0x33 

mov 

dx, 

OS 

cmp 

ax , 

-1 

jnz 

routine 

xor 

dx, 

dx 

xor 

bx, 

bx 

mov 

ax , 

bx 


routine 


) 

void m_enable( void ) 

{ 

- — asm 

{ 

mov ax, 32 

int 0x33 

) 

) 

/* Software-Re3et des Maustreibers*/ 
int m_softreset( void ) 


} 


mov 
1 nt 


ax , 33 
0x33 


} 

/» Auswahl Sprache der Meldungen »/ 
vold m_setlanguage( unsigned 

int language ) 

{ 

asm 


{ 


mov 
mov 
i nt 


ax , 34 

bx, language 

0x33 


) 


/« Das Pendant zu m_setlanguage */ 
unsigned int m_get1anguage( void ) 
{ 

_asm 

{ 

mov ax, 35 

Int 0x33 

mov ax, bx 

) 

} 


/* Versionnr des Treiber, benutzter 
Interrupt und den Maustyp. */ 
void m_getvers1on( unsigned 

Int »Version, 
unsigned char »irqnr, 
unsigned char »typ ) 

{ 

/» Zu den lokalen Var. s. m_pos */ 
unsigned int v; 
unsigned char i , t; 


mov 

ax, 36 

1 nt 

0x33 

mov 

v, bx 

mov 

1 , cl 

mov 

t. ch 


»Version = 

*irqnr = 1; 

»typ = t; 
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Programm: 

Artikel: 

464 - 664 - 6128 


Formelsammlung 

Umform-Künstler 

Disk./Kass. 


10 DEFINT a-y 

20 anzfo=0:DIM form$ ( 200),kom$ ( 200 ) , zw2$ ( 5 
0)i zwl$(50),var$(50),zvar(50) 

30 ON ERROR GOTO 4130 

40 MODE 2 : x 1 =2 : xr= 79 : yo=2:yu = 24: GOSUB 4330 
50 PRINT STRI NG$ (30 , ");"Formel -Sammlung" 

: PRINT STRING$(78, " = ") 

60 p$=" * + /-“: pl$=" *+-/)":p2$-"* + -/ )( =# 

70 WINDOW 2 ,79,4,24:CLS 
80 xl=25:xr=53:yo=8: yu = 22:GOSUB 4330 
90 PRINT"1. Neue Formel eingeben 
100 PRINT:PRINT"2. Formeln verbinden 
110 PRINT:PRINT"3. Formel umformen 
120 PRINT:PRINT"4. Rechnen 

130 PRINT:PRINT"5. Formeln suchen/aendern 

140 PRINT:PRINT“6. Formeln ausdrucken 

150 PRINT: PRINT"7. Formeln laden 

160 PRINT:PRINT"8. Formeln speichern 

170 a$=INKEY$:IF VAL(a$)<l OR VAL(a$)>8 T 

HEN 170 

180 ON VAL(a$ ) GOTO 420,540,1870.1200,990, 

1150,220,320 

190 * 

200 1 Formelsammlung laden 
210 ' 

220 OPENIN"Forsam.dat 
230 INPUT49,anzfo 
240 FOR a=0 TO anzfo-l 
250 INPUT #9,form$(a) 

260 INPUT#9,kom$(a) 

270 NEXT: CLOSEI N 
280 GOTO 170 
290 ’ 

300 ' Formelsammlung speichern 

310 ' 

320 OPENOUT "Forsam.dat 
330 PRINT#9,anz f O 
340 FOR a=0 TO anzfo-l 
350 PRINT#9,form$(a) 

360 PRINTÜ9, kom$(a) 

370 NEXT :CL0SE0UT 
380 GOTO 170 
390 ' 

400 * Formel eingeben 
410 1 

420 xl= 15 :xr=65: yo= 10:yu=15:GOSUB 4330 
430 PRINT" Geben Sie die Formel ein :" 

440 PRINT:INPUT"",form$(anzfo):IF form$(an 
Z f O ) = "" THEN 60 

450 LOCATE 1 ,5 : INPUT"Kommentar : ",a$: IF a 

$="" THEN kom$( anzfo)=" " ELSE kom$(anzfo) 

= a$ 

460 anzfo=anzfo+l 

470 xl= 47 :xr= 69 :yo=13: yu=17: GOSUB 4330 
480 PRINT:PRINT"1. Formeln e1ngeben":PR I NT 
:PRINT"2. Menu" 

490 a$=INKEY$:IF a$<>”l" AND a$<>"2" THEN 
490 

500 IF a$=“ 2" THEN 60 ELSE GOTO 420 
510 ' 

520 ' Formeln verbinden 
530 ' 

540 ve rf1$= " " 

550 xl = 12 : xr = 52: yo= 7: yu= 13:GOSUB 4330 

560 PRINT:PRINT"<1> Formel suchen":PRINT: P 

RI NT"< 2 > Neue Formel eingeben 

570 a$ = INKEY$: I F a$<>"l" AND a$ < >"2 " THEN 

570 

580 IF a$="2 " THEN PRINT:INPUT"Forme 1 : ;f 

$: GOTO 600 

590 GOSUB 4390:f$=form$(a) 

600 xl =5: xr=45:yo=ll:yu=13:GOSUB 4330:IF v 
erfl$<>"" THEN 690 

610 PRINT:PRINT " Mit welcher Variablen ei 
nsetzen ? " ; 

620 a$=INKEY$:IF a$="" THEN 620 
630 FOR b=3 TO LEN(f$) 

640 IF MID$(f$,b,l)<CHR$(64) OR MID$(f$,b, 
1)=CHR$(94 ) OR INSTR(p2$,MID$(f$,MAX(l,b-l 
) , 1) )=0 OR INSTR( p2$,MID$(f$, b+1 ,1) )=0 THE 
N 660 

650 IF MID$(f$,b,l) = a$ OR MI0$(f$, 1, 1 ) = a$ 
THEN 670 

660 NEXT:GOTO 620 

670 PRINT a$:verb$="":IF MID$(f$, 1, 1 )< >a$ 
THEN verb$="J":var$=a$:varh$=a$: GOTO 2100 


[ 546] 
[2655] 


[1344] 

[2847] 

[3980] 

[1786] 

[1248] 
[2563] 
[1759] 
[2139] 
[1795] 
[1142] 
[2361 ] 
[2394] 
[2044] 
[2313] 
[2769] 

[2621] 

[117] 

[ 1110 ] 

[117] 

[1475] 

[904] 

[1173] 

[ 634] 

[ 1039] 
[ 753] 
[427 ] 
[117] 
[2342] 
[117] 
[1150] 
[ 1339 ] 
[1173] 
[1686] 
[1456] 
[904] 

[ 427 ] 
[117] 

[1824] 
[ 117] 
[3078] 
[3995] 
[2159] 

[4178] 


[571] 

[3123] 

[2432] 

[1344] 

[1478] 
[117] 
[995 ] 
[117] 

[ 770] 

[1960] 

[5612] 

[1416] 

[2585 ] 

[1786] 
[3071] 

[4886] 

[ 1229] 
[ 1929] 
[7423] 


[2563] 

[1027] 
[6114] 


680 verf l$=f$:GOTO 550 [ 2042 ] 

690 PRINT:PRINT " Soll die Formel umgeform [5293] 
t werden ?"; 

700 a$ = I NKEY$ : IF a$ = '"' THEN 700 [1213] 

710 IF UPPER$(a$)="J" THEN verb$="J“:GOTO [1653] 
19 50 

720 verf2$=f$:FOR b=3 TO LEN(verf2$) [2347] 

730 IF MID$(verf2$,b,1)<CHR$(64) OR MID$(v [7060] 
erf2$,b,1)=CHR$(94) OR INSTR(p2$,MI 0$(verf 
2$,b-1,1))=0 OR INSTR(p2$,MID$(verf2$,b+l, 

1))=0 THEN 750 

740 IF MID$(verf2$,b,1)=MID$(verf1$, 1 ,1 ) T 
HEN 760 

750 NEXT:PRINT"Operat1on nicht moegllch!": 

CALL &BB18:GOTO 60 

760 IF b>=LEN(verf2$) THEN 0$="" ELSE 0$=M 
ID$(verf2$,b+1,LEN(verf2$)-b) 

7 70 f$=MID$(verf2$,1,b-1) + "("+MID$(verf1 $. 

3,LEN(verfl$)-2) + " ) "+o$ 

780 xl=5:xr=75:yo=17:yu=19:GOSUB 4330 
790 PRINT:PRINT"Neue Formel : ":fO$=f$:xf= 

152 : yf = 128:GOSUB 4540 

800 xl=45:xr=75:yo=7:yu=15:GOSUB 4330 
810 PRINT:PRINT"1. in Formelsammlung aufne 
hmen":PRINT:PRINT"2. Umformen 
820 PRINT:PRINT"3. ausdrucken":PRINT:PRINT 
"4. Menu 

830 a$=INKEY$:IF VAL(a$)<l OR VAL(a$)>4 TH 
EN 830 

840 verb$="":ON VAL(a$) GOTO 860,850,910,6 
0 

850 verb$="Jl":GOTO 1950 
860 xl=35:xr=63:yo=6:yu=l1:GOSUB 4330 
870 PRINT"Geben Sie den Kommentar ein." 

880 LOCATE 1 ,5:INPUT"Kommentar : ",a$:IF a 

$="" THEN a$=" " 

890 form!(anzfo)=f$:kom$(anzfo)=a$:anzfo=a 
nz fo+1:GOTO 800 
900 1 

910 med=8:PRINT#8,"Die erste Formel wurde 
in die zweite eingesetzt." 

920 PRINT#8,"Erste Formel : ";:fo$=verf1$ 

:GOSUB 4540 

930 P RIN T # 8,"Zweite Formel : ";:fO$=verf2$ 

:GOSUB 4540 

940 PRINT48,"Neue Formel : "j :fo$ = f$:GOS 

UB 4540 

950 med=0:GOTO 830 
960 ' 

970 ' Formelsammlung suchen/aendern 

980 ' 

990 GOSUB 4390 

1000 LOCATE 1,7:PRINT"Aendern <J/N> ? 


[3431] 

[3423] 

[3720] 

[2640] 

[2602] 
[3617] 

[2533] 

[6606] 

[3890] 

[ 1871] 

[2758] 

[1519] 
[2326] 
[2072] 
[2559] 

[3840] 

[117] 

[6326] 

[3873] 

[3415] 

[3486] 

[715] 

[117] 

[1919] 
[117] 
[1051] 
[3473] 


1010 a$=INKEY$:IF a$="" THEN 1010 [1470] 

1020 IF UPPER$(a$)< >"J" THEN 1060 [ 1 789 ] 

1030 LOCATE 1,3:INPUT" Fo rme1 : ",form$(a) [1515] 

1040 LOCATE 1,5:INPUT"Kommentar : ",kom$(a [2409] 

1050 CLS:GOSUB 4200:GOTO 1000 [1409] 

1060 xi=47:xr=69:yo=13:yu=19:GOSUB 4330:PR [5022] 
INT:PRINT"1. Weiter" 

1070 PRINT:PRINT“2. Formel ausdrucken":PRI [3831] 
NT:PRINT"3. Menu" 

1080 a$=INKEY$:IF a$<>"l" AND a$<>"2" AND [2206] 
a$< >"3" THEN 1080 

1090 IF a$="3" THEN 60 [981] 

1100 IF a$="2" THEN med=8:abfr$="SUCHE":GO [3386] 
SUB 4200:GOTO 1080 

1110 GOSUB 4440:GOTO 1000 [1783] 

1120 ' 

1130 ‘ Formelsammlung ausdrucken [1807] 

1140 1 [117] 

1150 PR I NT#8 , STRING$ ( 30, ");"Formelsammlu [3847] 

ng“:PRINT#8:PRINT#8 

1160 med=8:abfr$="":GOSUB 4190:GOTO 170 [2494] 

1170 ' [117] 

1180 1 Rechnen [430] 

1190 ' [117] 

1200 xl=12:xr=52:yo=7:yu=13:GOSUB 4330 [1960] 

1210 PRINT:PRINT"<1> Formel suchen [2882] 

1220 PRINT:PRINT"<2> Neue Formel elnzugebe [3359] 

1230 a$=INKEY$:IF a$<>”l" AND a$<>"2" THEN [1502] 
1230 

1240 IF a$="2" THEN PRINT:INPUT" Fo rme1 [2610] 

f$:GOTO 1280 

1250 GOSUB 4390 [1051] 

1260 f$=form$(a):G0T0 1280 [978] 

1270 ' [117] 

1280 FOR b=3 TO LEN(f$) [1929] 

1290 zl$=UPPER$(MID$(f$,b,3)) [1935] 

1300 IF z1$="COT" OR zl$=“CSC" OR zl$="SEC [9040] 
•• THEN IF UPPSR$(MID$(f$,b-2,2) )< >"FN" AND 
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UPPER$(MID$(f$,b-3,3))<>"ARC" THEN z$="FN 
"+zl$:GOTO 1380 

1310 IF UPPER$(MID$(f$,b,2))="LG" THEN zl$ 
= "LG“ : z$=" LOG 10 11 : GOTO 1380 
1320 NEXT 

1330 FOR b=3 TO LEN(f$) 

1340 zl$ = UPPER$(MIO$(f$ , b, 6) ) 

1350 IF z 1 $= "ARCSIN" OR zl$="ARCCOS" OR zl 
$ ="ARCCOT" OR Z1$=“ARCCSC" OR z1$="ARCSEC" 
THEN IF UPPER${MID$(f$,b-2,2))<>”FN" THEN 
z$="FN"+zl$:GOTO 1380 

1360 IF z1$="ARCT AN" THEN z$="ATN":GOTO 13 
80 

1370 NEXT:GOTO 1400 

1380 f$=LEFT$(f$,b-l)+z$+RIGHT$(f$,LEN(f$) 
-(b+LEN(zl$))+l):GOTO 1280 
1390 1 

1400 xl=5:xr=75:yo=14:yu=22:G05UB 4330 
1410 PRINT "Formel : ":fo$=f$:xf=112:yf=17 

6:GOSUB 4540:PRINT 

1420 PRINT"Geben Sie bitte die Variablen e 
in." 

1430 e=0:x=l:y=VPOS(#0):fl$=f$ 

1440 FOR b=3 TO LEN(f1$) 

1450 IF MID$(fl$,b,lXCHR$(64) OR MIO$(fl$ 
, b,1)=CHR$(94) OR INSTR(p2$,MID$(fl$,b-l, 1 
) ) =0 OR INSTR(p2$,MI0$(fl$,b+l,1)) = 0 THEN 
1520 

1460 var$(e)=MID$(f1$,b,1):LOCATE x,y:PRIN 
T va r$(e);" : INPUTzvar(e ) 

1470 x=x+15:IF x>44 THEN x=l:y=y+l 

1480 o$="zvar("+MID$(STR$(e),2,LEN(STR$(e) 

)-l)+")" 

1490 f2$=LEFT$(f 1$,b-15+0$ 

1500 IF b<LEN(fl$) THEN f1$ = f2$ + RIGHT${f1 $ 
, LEN(f1$)-b) ELSE f1$= f 2$ 

1510 e=e+1:GOTO 1440 
1520 NEXT 

1530 fl$="zerg"+MID$(fl$,2,LEN(fl$)-l) 

1540 ON ERROR GOTO 1570 

1550 LOCATE 1,8:PRINT"Druecken Sie nun blt 
te die <RETURN>-Taste. " 

1560 KEY 141,"1740 "+f1$+CHR$(13)+"gotO 16 
40"+CHR$(13):KEY DEF 18,0,141:WINDOW 3,3,5 
, 5 : PEN 0:END 

1570 CLS:PRINT "Kopieren Sie bitte folgend 
e Zeile und druecken dann <RETURN>" 

1580 PRINT "1740 "+fl$:LOCATE 1,8 

1590 KEY 141,CHR$(13)+"gotO 1600"+CHR$(13) 

: KEY DEF 18,0,141:END 

1600 CLS:PRINT "Formel : ":fo$ = f$:xf=l 12 : y 

f = 176:GOSUB 4540:PRINT:PR INT"Variable :":x 
= 1: y = 4:FOR a = 0 TO e-1 

1610 LOCATE x,y:PRINT var$(a);" : ";zvar(a 

) 

1620 x = x+15:IF x > 44 THEN x=l:y=y+l 
1630 NEXT 

1640 ON ERROR GOTO 4130 
1650 DEF FNcot(z) = 1/TAN(z ) 

1660 DEF FNsec(z)=1/COS(z) 

1670 DEF FNcsc(z)=l/SIN(z) 

1680 DEF FNarcsIn(z)=ATN(z/SQR(1-2*2 ) ) 

1690 DEF FNarccos(z)=-ATN(z/SQR(l-z* 2 ))+PI 
/ 2 

1700 DEF FNarccot(z)=PI/2-ATN(z) 

1710 DEF FNarcsec(z)=ATN(SQR(z* 2 —1))+(SGN( 
z )-l)*PI/2 

1720 DEF FNarccsc(z)=ATN(1/SQR(z* 2 -l))+(SG 
N ( 2 ) “ 1 ) * PI 

1730 WINDOW 10,60,21,22:CLS:PEN 1:KEY 141, 
CHR$(13) 

1740 zerg=FNARCSIN(((zvar(0)+(zvar(l)*zvar 
(2)*2)/2)/zvar(3))/zvar(4) ) 

1750 LOCATE 1,8:PRINT"Ergebnis : ";zerg 
1760 xl=47:xr=69:yo=13:yu=17:GOSUB 4330 
1770 PRINT:PRINT"1. Ergebnis ausdrucken " : P 
RINT:PRINT"2 . Menu" 

1780 a$=INKEY$:IF a$<>"l" AND a$<>"2“ THEN 
1780 

1790 IF a$="2“ THEN 60 

1800 PRINT#8,"Formel : med=8:GOSUB 4540 

:med=0 

1810 FOR a=0 TO e-1 

1820 PRINT#8,var$(a);"=";zvar(a) 

1830 NEXT:PRINT#8,"Ergebnls : ";zerg:PRINT 
#8:GOTO 1780 
1840 ' 

1850 ' Formel umformen 
1860 ' 

1870 xl=12:xr=52:yo=7:yu=13:GOSUB 4330 
1880 PRINT:PR I NT"<1> Formel suchen 
1890 PRINT:PRINT"<2> Neue Formel einzugebe 
n 


[3742] 

[350] 
[1929] 
[1756] 
[8803] 


[3117] 

[ 1047 ] 
[4550] 

[117] 
[2382 ] 
[3318] 

[3512] 

[1467] 
[1900) 
[8044] 


[4780] 

[2086] 
[3722 ] 

[1035] 

[3087] 

[1373] 

[350] 

[2911] 

[1505] 

[6073] 

[3353] 


[5392] 

[2101 ] 
[3963] 

[8133] 


[ 1822 ] 

[2086] 

[350] 

[1344] 
[ 785] 
[940] 
[1391] 
[2150] 
[1739] 

[1635] 

[3457] 

[2990] 

[2528] 

[3594] 

[3367] 

[3123] 

[5271] 

(1520] 

[ 599 ] 
[4390] 

[711] 

[1959] 
[3430] 

[117] 

[904] 

[117] 

[1960] 
[2882] 
[3485] 


1900 a$=INKEY$:IF a$<>"l" AND a$<>"2" THEN [ 1433] 


1900 

1910 IF a$="2" THEN PRINT:INPUT"Formel [3030] 

f$:altf$=f$:GOTO 1950 

1920 GOSUB 4390 [1051] 

1930 f$=form$(a):altf$=f$:GOTO 1950 [ 1684] 

1940 ' [117] 

1950 xl=5:xr=75:yo=12:yu=20:GOSUB 4330 [3137] 

1960 PRINT "Formel : ":fo$=f$:xf=112:yf=20 [2074] 

8:GOSUB 4540 

1970 LOCATE 1,3:PRINT"Var1 ab 1en : "; [ 2671 ] 

1980 FOR b=3 TO LEN(f$) [1929] 

1990 IF MID$(f$,b,1)<CHR$(64) OR MID$(f$,b t7379] 
,1)=CHR$(94) OR INSTR(p2$,MID$(f$,MAX(l,b- 


1),1))=0 OR INSTR(p2$,MID$(f$,b+l,1))=0 TH 
EN 2020 

2000 IF b >1 THEN IF INSTR(p2$,MID$(f$,MAX( [2658] 

1,b-1),1))=0 THEN 2020 


2010 PRINT MID$(f$,b,1)"; [1230] 

2020 NEXT:PRINT:PRINT [1009] 

2030 LOCATE 1,5:PRI NT"Nach welcher Varlabl [4473] 
en umste11en ? "; 

2040 a$=INKEY$:IF a$="" THEN 2040 [1544] 

2050 FOR b=3 TO LEN(f$) [1929] 

2060 IF MID$(f$,b,1)<CHR$(64) OR MID$(f$,b [7351] 
,1)=CHR$(94) OR INSTR(p2$,MID$(f$,MAX(l,b- 
1),1))=0 OR INSTR(p2$,MID$(f$,b+l,l))=0 TH 
EN 2080 

2070 IF MID$(f$,b,1)=a$ THEN 2090 [910] 

2080 NEXT:GOTO 2040 [1015] 

2090 PRINT a$:var$=a$:varh$=a$ [1693] 

2100 FOR b=1 TO LEN(f$ ) [ 1334] 

2110 IF MID$(f$,b,3)<>"10“" THEN 2150 [1252] 

2120 IF b>1 THEN o$=MID$(f$,1,b-1) ELSE 0$ [3046] 

2130 IF b+2 <1 an g THEN O1$ = MID$(f$,b+3, 1ang [2222] 
-(b+2)) ELSE 01$="“ 

2140 f$=0$+CHR$(35)+Ol$:GOTO 2090 [1778] 

2150 NEXT [350] 

2160 ' Zahlen ln Variablen legen [959] 

2170 anz=0 [320] 

2180 1ang= LEN(f$) [214] 

2190 FOR b=l TO lang [1524] 

2200 IF MID$(f$,b,1)>CHR$(48) AND MID$(f$, [2179] 
b,1)<CHR$(57) THEN an = b:GOTO 2220 

2210 NEXT:GOTO 2290 [1123] 

2220 FOR b=an TO lang [1843] 

2230 IF MID$(f$,b,1)<CHR$(48) OR MID$(f$,b [3057] 
,1)>CHR$(57) THEN en=b-l:GOTO 2250 

2240 NEXT:IF en<an THEN en=an [1590] 

2250 zwl$(anz)=MID$(f$,an,en-an+1) [1713] 


2260 IF an >1 THEN o$=MID$(f$,1,an-1) ELSE [ 1905] 
o$ = " " 

2270 IF 1ang > = en THEN ol$=MID$(f$,en + 1,1 an [4816] 
g-en+1) ELSE o$="" 

2280 f$=o$+CHR$(130+anz)+ol$:anz=anz+l:GOT [3055] 
O 2180 

2290 lang=LEN(f$):FOR b=2 TO lang+1 [1321] 

2300 r$=" "+f$:IF MID$(r$,b,1)=var$ AND IN [6947] 
STR(p2$,MID$(r$,b-1,1))<>0 AND INSTR(p2$, 

MID$(r$,b+1,1))<>0 THEN varst=b-1:GOTO 233 


0 

2310 NEXT [350] 

2320 ' spez. Funktionen ln Variablen [1289] 

2330 1ang=LEN(f$) [214] 

2340 FOR b=1ang TO 1 STEP -1 [1613] 


2350 Z$=UPPER$(MID$(f$,b,6)):IF z$="ARCTAN [7662] 
" OR z$="ARCSIN" OR z$="ARCCOS" OR z$="ARC 
COT" OR z$="ARCSEC" OR 2$="ARCCSC" THEN 24 
20 

2360 z$=UPPER$(MID$(f$,b,2)):IF z$="LG" TH [2746] 
EN 2420 

2370 IF MI D$ ( f $ , b , 1 )■= " " " THEN z$="“":GOTO [2508] 

2420 

2380 IF MID$(f$.b,1) = "#" THEN 2$=“#":GOTO [2481] 

2420 

2390 NEXT:FOR b=lang TO 1 STEP -1 [2064] 

2400 z$=UPPER$(MID$(f$,b,3)):IF z$="SIN" O [7527] 
R z$="COS" OR z$="TAN" OR 2 $ = "C0T" OR z$=" 

SEC" OR z$="CSC" OR z$="LOG" OR Z$="£XP" T 


HEN 2420 

2410 NEXT:var$=MI0$(f$,varst,1):GOTO 2590 [1823] 

2420 an=b:IF z$="“" OR 2 $="#" THEN IF MIDI [3944] 
(f$, b+1, IX >“( " THEN en = an+ 1 : GOTO 2470 
2430 e=0:c=0:FOR b=an+LEN(z$) TO lang [2218] 

2440 IF MI0$(f$,b,1) = "(" THEN e=l:c=c+l EL [3416] 
SE IF MID$(f$,b,l)=")" THEN c=c-l 

2450 IF e=1 AND c=0 THEN en=b:GOTO 2470 [2280] 

2460 NEXT [350] 

2470 IF z$<>"“" THEN 2530 [1032] 

2480 IF MID$(f$,an-l,l)<>")" THEN an=an-l: [3189] 
GOTO 2530 

2490 e=0:c=0:FOR b=an TO 1 STEP -1 [2388] 


6/7’90 PC 43 
















r~ Listinq 


2500 IF MID$(f$,b,1)=")" THEN e=l:c=c+l EL [2099] 

SE IF MID$(f$,b,l)="(" THEN c=c-l 

2510 IF e=1 AND c=0 THEN an=b:GOTO 2530 EL [5366] 

SE IF c<0 THEN an=an-l:G0T0 2530 

2520 NEXT:an=an-1 [850] 

2530 zwl$(anz)=MID$(f$,an,en-an+l) [1713] 

2540 IF an >1 THEN o$=MID$(f$,1,an-1 ) ELSE [ 1905] 
o$=‘‘" 

2550 IF 1ang> = en THEN o 1 $=MID$(f$,en+1,1 an [4816] 
g-en+1) ELSE 0$="" 

2560 IF an<=varst AND en>=varst THEN varst [5752] 

=an ELSE IF en<=varst THEN varst=varst-(en 

-an) 

2570 f$=o$+CHR$(130+anz)+ol$:anz=anz+l [1851] 

2500 GOTO 2330 [345] 

2590 forus$=RIGHT$(f$,LEN(f$)-INSTR(f$,"=" [4368] 

) ) :f$=LEFT$(f$,INSTR(f$," = ")-l) 

2600 ‘ Klammern zusammen fassen [2002 ] 

2610 anzk=0:varst=INSTR(forus$,var$) [2687] 

2620 1ang=LEN(forus$) [193] 

2630 IF MID$(forus$,1.1)="+" THEN forus$=M [4031] 
ID$(forus$, 2 ,lang-l):varst=varst-l:GOTO 26 

2640 IF 1ang=l AND fOrus$<CHR$(179) THEN 3 [2840] 
470 

2650 FOR b=lang TO 1 STEP -1 [1613] 

2660 IF MID$(forus$,b,1)="(“ THEN an=b:GOT [1738] 

O 2680 

2670 NEXT:GOTO 2760 [1063] 

2680 FOR b=an TO lang [1843] 

2690 IF MID$(forus$,b,1)=")" THEN en=b:GOT [2095] 

0 2710 

2700 NEXT J 350 . ] , 

2710 zw2$(anzk)=MID$(forus$,an,en-an+1) [2844] 

2720 IF an<=varst AND en>=varst THEN varst [5752] 
=an ELSE IF en<=varst THEN var3t=varst-(en 

2730 IF an >1 THEN o$=MID$(fOrus$,1,an-1) E [2803] 
LSE o$="" 

2740 IF en<1ang THEN o1$=MID$(forus$,en +1, [3518] 

lang-en) ELSE Ol$="" 

2750 forus$=O$+0HR$(180+anzk)+ol$:anzk=anz [4223] 
k+1:GOTO 2620 , 

2760 IF LEN(fOrus$ ) = 1 AND forus$>CHR$(179) [2905] 
THEN kla=l:GOTO 3270 ELSE kla=0 
2770 FOR b=1 TO lang [1524] 

2780 IF (MI0$(fOrus$,b,1)="+" OR MID$(foru [7867] 
S$,b,1)»"-") AND INSTR(pl$,MID$(forus$,MAX 
(1,b-1),1))=0 THEN 3030 

2790 NEXT [350] 

2800 ' *,/ rechnen [793] 

2810 1ang=LEN(forus$) [193] 

2820 FOR b=1ang TO varst+1 STEP -1 [1757] 

2830 k=ASC(MID$(forus$,b,1)):IF k>64 AND k [4242] 

092 AND k< >94 THEN 2850 

2840 NEXT:GOTO 2920 [1204] 

2850 IF MI0$(forus$,b-1,1)="*” THEN 0$=")/ [2944] 

" ELSE 0$=" )*" 

2860 IF INSTRCf$,"+")=0 AND INSTR(f= [5013] 

0 THEN o$=MID$(o$, 2 ,l):f$=f$+o$+MID$(forus 
$,b,1):GOTO 2880 

2870 f $ = " ("+f$+ 0 $+MID$(forus$,b,1) [1554] 

2880 IF b>2 THEN o$=MID$(fOrus$,1,b-2) ELS [2303] 
E 0$=“" 

2890 IF b<lang THEN ol$=MID$(fOrus$,b+1,1a [4178] 
ng-b) ELSE ol$="" 

2900 forus$=o$+ol$ [1419] 

2910 GOTO 2810 [337] 

2920 1ang=LEN(forus$) [193] 

2930 FOR b=varst-l TO 1 STEP -1 [2086] 

2940 k=ASC(MID$(forus$,b,1)):IF k>64 AND k [4045] 

092 AND k< >94 THEN 2960 

2950 NEXT:GOTO 3270 [1057] 

2960 IF MID$(forus$,b+1,1)="*" THEN IF INS [6744] 
TR(f$i"+")=0 AND INSTR(f$,"-")=0 THEN f$=f 
$+"/"+MID$(forus$,b,1) ELSE f$="( " + f$+" ) / " 

+MID$(forus$,b,1) 

2970 IF MID$(forus$,b+1,1)="/” THEN IF INS [7196] 
TR(f$,"+")=0 AND INSTR(f$,"-")=0 THEN f$=" 

("+MID$(forusS,b,1)+")/"+f$ ELSE f$="("+MI 
D$(forus$,b,1)+")/("+f$+")" 

2980 IF b>l THEN o$=MID$(forus$,1,b-1) ELS [3288] 
E o$="" 

2990 IF b+1<1ang THEN o1$=MID$(forus$,b+2, [2430] 

1ang-(b+1)) ELSE ol$="" 

3000 forus$=0$+Ol$ [1419 

3010 varst=varst-2:GOTO 2920 [1830] 

3020 ' *,/ ln Variablen [829] 

3030 1ang=LEN(forus$) [193] 

3040 FOR b=1 TO lang [1524] 

3050 IF MID$(forus$,b,1) = "*" OR MID$(forus [3197] 

$,b,1)="/" THEN 3070 

3060 NEXT:GOTO 3140 [1051] 


3070 an=b-1:en = b+1 [262] 

3080 zw2$(anzk)=MID$(forus$, an, en-an+1) [2844] 

3090 IF an<=varst AND en>=varst THEN varst [5752] 
=an ELSE IF en<=varst THEN varst=varst- ( en 
-an ) 

3100 IF an >1 THEN o$=MI D$( f O rus$,1,an- 1) E 
LSE o$="" 

3110 IF en < 1ang THEN ol$=MID$(forus$ , en+1, 
lang-en) ELSE ol$=“" 

3120 forus$ = o$+CHR$(180 + anzk)+ol$:anzk=anz 
k+1-.GOTO 3030 
3130 ' +,- rechnen 

3140 1ang=LEN (fo rus$) 

3150 FOR b=l TO lang 
3160 IF b=varst THEN 3180 

3170 k=ASC(MID$(forus$,b. 1)) :IF k>64 AND k 
0 92 AND k< >94 THEN 3190 
3180 NEXT:GOTO 3270 

3190 IF b=l THEN 0$="-" ELSE IF MID$(forus 
$,b-1, 1)="-" THEN 0$="+" ELSE o$="-" 

3200 f$=f$+ 0 $+MID$(forus$,b,1) 

3210 IF b > 2 THEN o$=MI 0$( forus$, 1, b-2 ) ELS 
E 0$="" 

3220 IF b<lang THEN o 1 $=MID$( forus$,b+ 1,1 a 
ng-b) ELSE Ol$="" 

3230 forus$=0$+Ol$ 

3240 IF b< va rst THEN varst=varst-2:IF b<2 
THEN varst=varst+l 
3250 GOTO 3140 

3260 ' Umformen ln Normal form 
3270 1ang=LEN(forusS) 

3280 IF MID$(fOrus$,1,1 )="-" AND INSTR(MID 
$(forus$,2,lang-l)," + ")= 0 AND INSTR(MID$(f 
o r u s $,2,1ang-1)," -")=0 THEN fo rus$=MID$( fo 
rus$.2,lang-l): IF LEN(f$)=l THEN f$=f$+“*( 

-1 )": GOTO 3270 ELSE f $="("+ f$+“)*(-1 )":GOT 
O 3270 

3290 FOR b=1 TO lang 

3300 IF MID$(forus$,b, 1 )>CHR$ (1 79) THEN 33 
20 

3310 NEXT:GOTO 3360 

3320 IF b>1 THEN o$=MID$( forus$ ,1, b-1 ) ELS 
E 0$="" 

3330 IF b<1ang THEN ol$=MI0$(forus$,b+1 ,1a 
ng-b) ELSE ol$="" 

3340 forus$=O$+zw2$(ASC(MI0$(forus$, b,1) ) - 
180)+Ol$ 

3350 GOTO 3270 
3360 1 ang = LEN (f $) 

3370 FOR b= 1 TO lang 

3380 IF MID$(f$ t b,1) >CHR$( 179) THEN 3400 
3390 NEXT-.GOTO 3440 

3400 IF b>1 THEN o$=MID$(f$,1, b-1 ) ELSE 0$ 

3410 IF b< 1 ang THEN o 1$=MID$(f$,b+1,1ang-b [3910] 
) ELSE Ol$='"‘ 

3420 f$=0$+zw2$(ASC(MID$(f$,b,l))-180)+Ol$ [1304] 


[2803] 

[3518] 

[4339] 

[1324] 

[193] 

[ 1524 ] 
[1272] 
[4118] 

[ 1057 ] 
[3726] 

[941] 

[2303] 

[4178] 

[1419] 

[6693] 

[453] 

[1181] 

[193] 

[11720] 


[ 1524] 
[2082 ] 

[1165] 

[3288] 

[4178] 

[2718] 

[658] 

[214] 

[1524] 
[1299] 
[831] 
[3046] 


3430 GOTO 3360 

3440 IF kla=l THEN forus$=MID$( f Orus$,2, LE 
N(forus$)-2) :kla = 0 
3450 GOTO 2610 

3460 ' die Gleichung nach spez. Funktionen 
aufloesen 

3470 1 ang=LEN(forus$) 

3480 FOR b=1 TO lang 

3490 IF MID$(forusj,b, 1) >CHR$(129) THEN 35 
10 

3500 NEXT: GOTO 3550 

3510 IF b>1 THEN o$=MI 0$( f Or us$,1, b-1 ) ELS 
E o$="" 

3520 IF b<1ang THEN ol$=MID$(forus$,b+1,1a 
ng-b) ELSE 01$="" 

3530 forus$=o$+zwl$(ASC(MID$( forus$, b,1) )- 
130)+01$ 

3540 ' 

3550 FOR b=LEN( forus$) TO 1 STEP -1 
3560 IF MID$(forus$,b,1 )="#" THEN forus$=M 
ID$( forus$,2 , LEN(forus$)-l ): zl$="1g":z2$=" 
“:GOTO 3750 

3570 IF MID$(forus$,b,l)="‘" THEN an=b:GOT 
O 3590 

3580 NEXT:z2$="": GOTO 3630 

3590 r$=RIGHT$(forus$,LEN(forus$)-an) 

3600 IF LEN(r$ ) < 5 THEN r$=" (l/" + r$+“ )":GOT 
O 3620 

3610 IF LEFT$(r$,l)="(" AND RIGHT$ ( r$,1 )=" 
)" AND MID$(r$,3,l)=" /" THEN r1$=MID$(r$,2 
,1):r2$=MID$(r$,4,1):r$=" (" +r 2$+"/" +r1$+" ) 
“:IF zwl$(ASC(rl$)-130)=“l“ THEN r$=r2$ 
3620 zl$="":z2$="*"+r$:forus$=LEFT$(forus$ 
,an- 1):GOTO 3750 

3630 z$=UPPER$(LEFT$(forus$, 3)) 


[ 457 ] 

[3892] 

[ 345 ] 
[2811] 

[193] 

[1524] 
[2547] 

[ 1009 ] 
[3288] 

[4178] 

[2560] 

[117] 

[ 1993] 
[5534] 

[ 1962] 

[1609] 
[2896] 
[1707] 

[8836] 


[3635 ] 
[1811 ] 
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3640 IF z$="T AN" OR z$ = "SIN" OR z$="COS" O 
R z$="COT" OR z$="SEC" OR z$="CSC" THEN zl 
$="ARC"+Z$:GOTO 3730 

3650 IF z$ ="LOG" THEN z1$ ="exp":GOTO 3730 
3660 IF z$=''EXP" THEN z 1$=" 1 og " : GOTO 3730 
3670 z$=UPPER$(LEFT$(forus$,2) ) 

3680 IF z$= “LG" THEN zl$="10"":GOTO 3730 
3690 z$=UPPER$(LEFT$(forus$,6) ) 

3700 IF z$="ARCTAN" OR z$="ARCSIN" OR Z$=" 
ARCCOS" OR z$="ARCCOT" OR z$="ARCSEC" OR Z 
$="ARCCSC" THEN z1$=MID$(z$,4,3 ) :GOTO 3730 
3710 IF MI0$(forus$,1,1)="+" THEN forus$=M 
ID$(forus$,2,LEN(fo rus$)-1) 

3720 GOTO 3760 

3730 l*ng=LEN(forus$) 

37 40 forus$=MID$(forus$,LEN(z$)+2,1ang-LEN 
( Z$ ) -2) 

3750 IF LEN(f$) = 1 AND INSTR(p2$,LEFT$(z1$ , 
0)00 THEN f$ = zl$+f$ + z2$ ELSE f$=Zl$+"("+ 
f$+")"+z2$ 

3760 1ang=LEN(f$) 

3770 FOR b=1 TO lang 

3780 IF MID$(f$.b,l)>CHR$(129) THEN 3800 
3790 NEXT:GOTO 3840 

3800 IF b >1 THEN o$=MID$(f$,1,b-1) ELSE 0$ 

3810 IF belang THEN o1$=MID$(f$,b+1,1ang-b 
) ELSE ol$="" 

3820 f$=0$+Zwl$(ASC(MID$(f$,b,1))-130)+Ol$ 

3830 GOTO 3760 

3840 1ang=LEN(forus$) 

3850 FOR b=1 TO lang 

3860 IF MID$(forus$,b,1)>CHR$(129) THEN 38 
80 

3870 NEXT:GOTO 3920 

3880 IF b>1 THEN o$=MID$(forus$,1,b-1) ELS 
E o$="" 

3890 IF belang THEN o1$=MID$(fOrus$.b+1 . 1 a 
ng-b) ELSE Ol$="" 

3900 forus$=o$+zwl$(ASC(MID$(forus$,b,1) )- 
130)+01$ 

3910 GOTO 3840 

3920 IF forus$=varh$ THEN 3940 

3930 f$=f$+"="+forus$:forus$="":var$=varh$ 

: GOTO 2170 

3940 f$=forus$+"="+f$ 

3950 IF ve r b$="J" AND verfl$e>"" THEN GOTO 
720 

3960 IF verb$="J“ THEN GOTO 680 

3970 LOCATE 1,7:PRINT"Neue Gleichung : ":f 

o$=f$:xf=176:yf=128:GOSUB 4540 

3980 IF verb$="Jl" THEN GOTO 800 

3990 x1=45:xr=76:yo=8:yu=16:G0SUB 4330 

4000 PRINT:PRINT" 1. in Formelsammlung auf 

nehmen":PRINT:PRINT" 2. RechnenPRINT:PRI 

NT" 3. Gleichung ausdrucken":PRINT:PRINT " 

4. Menu" 

4010 a=VAL(INKEY$):IF aei OR a>4 THEN 4010 
4020 ON a GOTO 4030,1280,4070,60 
4030 xl=35:xr=63:yO=6:yu=l1:GOSUB 4330 
4040 PRINT"Geben Sie den Kommentar ein." 
4050 LOCATE 1,5:INPUT"Kommentar : ",a$:IF 

a$=“" THEN a$=" " 

4060 form$(anzfo)=f$:kom$(anzfo)=a$:anzfo= 
anzfo+l:GOTO 3990 

4070 med=8:PRINT48,"Alte Formel : ";:fo$=a 

11f$:GOSUB 45 40:PRINT#8 

4080 PRINT48,"Neue Formel : ";:fo$=f$:GOSU 

B 4540:PRINT#8 

4090 med=0:GOTO 4010 

4100 ‘ 

4110 ' ERROR 
4120 ' 

4130 PRINT CHR$( 7 ) ;:KEY 141,CHR$(13):PEN 1 
: xl=32:xr = 48:yo=11:yu=11:GOSUB 4330 
4140 PRINT " *** FEHLER ***" 

4150 CALL &BB18:GOTO 60 
4160 ‘ 

4170 ' Formelsammlung printen 
4180 ’ 

4190 a=0 

4200 PRINT#med,"Nr.: ";a 

4210 PRINT#med:PRINT#med,"Formel : ";:fo$= 

form$(a):xf=112:yf=160:GOSUB 4540 

4220 PRINTSmed:PRINTSmed,"Kommentar : "kom 

$(a) 

4230 IF abf r$="SUCHE" THEN 4290 

4240 IF abfr$e>"" THEN LOCATE 1,7:PRINT ab 

fr$ ELSE 4280 

4250 a$=INKEY$:IF a$="" THEN 4250 
4260 IF UPPERS(a$)="J" THEN 4290 
4270 IF abf r$e >"" THEN CL5 

4280 a=a+l:IF a>=anzfO THEN 4290 ELSE 4200 


[4604] 


[2394] 
[1809] 
[1807] 
[1690] 
[1631 ] 
[8138] 


[3263] 

[473] 

[193] 

[3375] 

[4262] 


[214] 

[1524] 

[2072] 

[1228] 
[3046] 

[3910] 

[ 1898 ] 

[ 473] 

[ 193] 

[1524] 

[2521] 

[1228] 
[3288] 

[4178] 

[2560] 

[473] 

[1247] 
[3264] 

[608] 

[ 2070] 

[1835] 

[ 5259 ] 

[ 734] 

[2630] 

[11982] 


[2427] 

[1724) 

[2326] 

[2072] 

[2559] 

[3811] 

[5868 ] 

[3853] 

[902 ] 
[117] 
[561] 
[117] 
[6119] 

[ 1950 ] 
[1164] 
[117] 

[1873] 
[117] 
[324] 
[1510] 
[4500] 

[2659] 

[1756] 
[ 1905 ] 

[1462] 
[1364] 
[443] 
[2341] 


4290 RETURN [555] 

4300 1 [117] 

4310 ' FENSTER [1072] 

4320 1 [117] 


4330 WINDOW x1 -1,xr+1,yo-1,yu+1:CLS: WINDOW [ 3128 ] 
xl,xr,yo,yu 

4340 PLOT x1*8-12,(25-yu)*16-4:DRAWR (xr-x [4560] 
1)*8+16,0:DRAWR 0,(yu-yo)*16+24:DRAWR -((x 


r-xl )♦8+16) , 0:DRAWR 0,-((yu-yo)*16+24) 

4350 RETURN [555] 

4360 ' [117] 

4370 ‘ Formel suchen [938] 

4380 ' [117] 

4390 xl=23:xr=73:yo=10:yu=15:GOSUB 4330 [2442] 


4400 PRINT"Geben Sie bitte die Formel oder [4115] 
den Kommentar ein." 

4410 PRINT:INPUT"Formel : ";suchf$:suchf$= [2494] 

UPPER$(suchf$) 

4420 PRINT:INPUT”Kommentar : ";suchk$:such [3031] 

k$=UPPER$(suchk$) 

4430 a=0 [324] 

4440 IF INSTR(UPPER$(form$(a)),suchf$)<>0 [5776] 

AND INSTR(UPPER$(kom$(a)),suchk$)< >0 THEN 
4460 

4450 a=a+1:IF a>=anzfo THEN x1=27:xr=43:yo [7662] 
=13:yu=13:GOSU8 4330:PRINT"Nicht gefunden. 

":CALL &BB18:GOTO 60 ELSE GOTO 4440 

4460 xl=5:xr=75:yo=14:yu=20:GOSUB 4330:abf [4669] 
r$="SUCHE":med=0:GOSUB 4200 

4470 LOCATE 1,7:PRINT "Ist dies die gesuch [4759] 
te Formel ?" 

4480 a$=UPPER$(INKEYS):IF a$="" THEN 4480 [1928] 


4490 IF a$ =" J " THEN RETURN [1333] 

4500 GOTO 4450 [327] 

4510 ' [117] 

4520 ' Formeln ausgeben [1377] 

4530 1 [117] 

4540 IF med=0 THEN MOVE xf,yf:TAG [2343] 

4550 q=0:ql=0:q2=0:q3=0:FOR g=l TO LEN(fo$ [2672] 

) 

4560 q$=MI D$(fo$, g ,1) [802] 


4570 IF qS= "* " THEN q=q+1:q2=q2+1:IF med=0 [8390] 
THEN MOVER 0 ,8:GOTO 4630 ELSE PRINT#B,CHR 
$(27 ) "SO";:GOTO 4630:'Anwelsung des Orucke 
rs auf Hochzeichen umzustellen 

4580 IF q >0 THEN IF ql = 0 AND INSTR(plS,q$) [9367] 
THEN q=q-1:IF med=0 THEN MOVE xf+8*(g-q2- 
q3-1)+4*q3,yf ELSE PRINT#8,CHR$(27)"T"; : 'A 
nweisung das Druckers auf Normalzelchen um 
zuste11en 

4590 IF qS=" (" AND q>0 THEN ql=ql+l [1261] 

4600 IF q$=" ) " AND q>0 THEN ql = ql-l [ 1254] 

4610 IF q$ = ” * " THEN q3=q3+1:MOVER 4,0:GOTO [3036] 
4630 

4620 PRINT#med,qSi [ 760] 

4630 NEXT:IF med=8 THEN PRINT#8.CHR$(27)"T [5384] 
":'Anwe1sung des Druckers auf Normalzeiche 
n umzustel1en 

4640 TAGOFF:RETURN [1224] 


Programm: Biomorphe 

Artikel: Biomorphe 

464 ~ 664 - 6 128 Disk. /Kass. 


10 ' 

20 ' =============== 

30 ' 

40 ‘ Grundlagen aus Spektrum der Wissensch 
aft (Heft 9/89) 

50 ' 

60 ' Written by Martin Schroeder/Jan-Mirko 
Maczewski/Copyright PC Amstrad 
70 ' 

80 ka=1:MEMORY &3FFF:RAD 
90 DIM a(8),f1(15),f(15),aS(1) 

100 GOSUB 1050 

110 GOSUB 1180:MODE 1 

120 funkt=l:a(l)=-10:a(2)=10:a(3)=-10:a(4) 
=10:a(5)=160:a(6)=200:a(7)=10:a(8)=10 

130 b$= "-. SCN" : up$=CHR$ ( 240 ) :do$=CH 

R$(241):1 1 S=CHR$(242) 

140 re$=CHR$(243 ): se$=CHR$(224):ra$=STRING 
$(8,8):so$=CHR$(7)+CHR$(8) 

150 CALL &BC02 : PEN l-.LOCATE 1 6,2 : PR I NT " BIO 
MORPH" 

160 PEN 2:LOCATE 7,4:PRINT CHR$(9);SPC(3); 
"written by M.S/J-M.M" 

170 CALL &8050 

180 PEN 1:RESTORE 260:FOR m=8 TO 22 STEP 2 
190 LOCATE 7,m:READ a$:PRINT a$:NEXT 


[1163] 

[117] 

[2683] 

[117] 

[4773] 

[117] 

[1861] 
[ 1012 ] 
[817] 

[ 1415] 
[4101] 

[3336] 

[4787] 

[2570] 

[3396] 

[443] 

[2008] 
[14523 
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200 LOCATE 1,25:PRINT"Nameb$;" "; [1551] 

210 RESTORE 2190:FOR t=l TO funkt:READ a$: [3585] 

NEXT 

220 vv= LEN(a$) :IF vv<27 THEN PRINT SPC(27- [2652 ] 

VV ) ; 

230 PRINT MID$(a$,7,21) [1413] 

240 GOSUB 790 'Funktionswahl [2526] 

250 ON op GOTO 280,390,1110,590,680,760,90 [2789] 
0,1880 

260 DATA " PARAMETER EINSTELLEN"," F [8190] 

ARBEN EINSTELLEN"," BIOMORPH GENERIEREN 
BIOMORPH SPEICHERN"," BIOMORPH 

LADEN" 

270 DATA " BIOMORPH ANSEHEN","DISKETTE [3149] 

NINHALTSVERZEICHNIS"," VERGROESSERUNG" 

280 'System e1n3tellen [1211] 

290 RESTORE 370:PEN 2:LOCATE 10,4:PRINT CH [3638] 
R$(18);"PARAMETER EINSTELLEN" 

300 FOR m=8 TO 22 STEP 2:LOCATE 7,m:READ a [5235] 
$:PRINT SPC(27)LOCATE 7,m:PEN 1 

310 PRINT a$;:IF fu=0 THEN LOCATE 20,m:PEN [4383] 
2:PRINT":"a((m-6)/2) 

320 NEXT:IF fu THEN RETURN ELSE PEN 1:FOR [4859] 
t=l TO 8:LOCATE 22,6 + 2*t:INPUTh 

330 IF h=0 THEN 340 ELSE a(t)=h [2533] 

340 NEXT:LOCATE 6,25:INPUT"",g$ [1205] 

350 d1ma=(a(2)-a(1))/a(6):dr=(a(4)-a(3))/a [1562] 
(5) 

360 IF g$< >"" THEN b$=MID$(UPPER$(g$) ,1,8 ) [3082] 
+SPACE$(8-LEN(g$))+".SCN“ 

370 DATA "IMAG Start","IMAG Ende “."REAL S [8846] 
tart","REAL Ende","Auf1oesung x","Aufloesu 
ng y", "Unendlichkeit","Rechentiefe" 

380 GOTO 2150 ' Wahl von F(z) [1090] 

390 MODE 0:PEN 15 [1265] 

400 LOCATE 6,2:PRINT"Farbwah1":LOCATE 2,4: [3519] 

PRINT"G-Gruen F-Farbe" 

410 LOCATE 6,6:PRINT"I-InversLOCATE 4,8: [4289] 

PRINT"Anwahl:CURSOR" 

420 xl=l:x2=5:yl=10:y2=20:GOSUB I020:xl=6: [4819] 
x2=10:GOSUB 1020:x1=11:x2=15::GOSUB 1020:x 
l=16:x2=20:GOSUB 1020 

430 FOR t=0 TO 15:g=INT(t/4):s=(t-g*4)+1:L [6500] 
OCATE 2 + 5*g , 10+2*s:INK t,f(t):PEN t:PR I NT 
STRING$(3,143);:NEXT:t=0 


440 

INK t,f(t! 

i : PEN 

15:LOCATE 2,22: 

PRINT CH 

[3890] 

R$(20) 

; "Stift: 

"t" : 

Ink:"f(t) 



450 

a$ = 

=INKEY$: 

IF a$=" " THEN 450 


[1382] 

460 

IF 

a$=up$ 

THEN 

t=t+1:GOTO 550 


[1814] 

470 

IF 

a$=do$ 

THEN 

t=t-l:GOTO 550 


[1284] 

480 

IF 

a$= re$ 

THEN 

f(t)=f(t)+l:GOTO 570 

[905] 

490 

IF 

a$ = l1 $ 

THEN 

f(t)=f(t)-l:GOTO 570 

[2109] 

500 

IF 

a$=se$ 

THEN 

670 


[233] 

510 

IF 

a$="g" 

THEN 

GOSUB 1080:GOTO 

440 

[2062] 

520 

IF 

a$="f" 

THEN 

GOSUB 1050:GOTO 

430 

[ 2201 ] 

530 

IF 

a$="1 " 

THEN 

GOSUB 1600:GOTO 

430 

[2184] 

540 

GOTO 440 




[444] 

550 

IF 

t >15 THEN t = 

=0 ELSE IF t<0 THEN t=15 

[2206] 

560 

GOTO 440 




[444] 

570 

IF 

f(t)>26 

THEN f(t)=0 ELSE IF 

f(t)<0 

[ 1930] 


THEN f(t) = 2 6 

580 GOTO 440 [444] 

590 GOSUB 1150:MODE 0:CALL &800C.SAVE b$ , b [3129] 
,&C000,&4000 

600 PEN 1 :a$( 1 )=MID$(b$, 1 , 8 ):OPENOUT a$(l) [2441] 

610 FOR g =1 TO 8 [698] 

620 PRINT#9,a(g) [842] 

630 NEXT:FOR h=0 TO 15:PRINT#9,f(h):NEXT [2233] 
640 PRINT49,dlma:PRINT#9,dr:PRINTH9,funkt: [2851] 
PRINT49,b$: 

650 IF j > = a(5) OR j=0 THEN j = l [ 1628] 

660 PRINT#9,j:CLOSEOUT [1230] 

670 MODE 1:CALL &BC02:GOTO 150 [1406] 

680 d= 0 :GOSUB 920:IF name$="" THEN 670 ELS [4344] 
E LOAD name$+".scn",&4000 

690 a$=MI 0 $(nameS,1,9):OPENIN a$ [1709] 

700 FOR g=1 TO 8 [698] 

710 INPUT#9,a(g) [741] 

720 NEXT:FOR h=0 TO 15:INPUT #9,f(h):NEXT [1629] 
730 INPUT#9,d1ma:INPUT#9,dr:INPUT#9,funkt: [4343] 
INPUT#9,b$:INPUT #9,ka: 

740 CLOSEIN [ 752 ] 

750 GOTO 670 [431] 

760 MODE 0:CALL &800C:GOSUB 1150 [1145] 

770 a$=LOWER$(INKEY$):IF a$="" THEN 770 [1500] 

780 IF a$=”a" THEN bfl=l:GOSUB 2000:bfl=0: [3505] 
GOTO 1140 ELSE 1140 

790 'WAHL [ 95 ] 

800 y= 8 :x =6 [438] 

810 CALL &8014,28,x,y [899] 

820 a$=INKEY$:IF a$="" THEN 820 [1300] 

830 CALL &8014,28,x,y [899] 


840 IF a$=up$ THEN y=y-2 

850 IF a$=do$ THEN y=y +2 

860 IF y < 8 THEN y =22 

870 IF y > 22 THEN y = 8 

880 IF a$< >se$ THEN 810 

890 op=(y-6)/2:RETURN 

900 'Disketteninhaltsverzeichnis 

910 d=1 

920 MODE 1:LOCATE 1,2:PRINT"Biomorphb11der 
auf Dl skette :'': PRINT 
930 PEN 1:DIR$="*.SCN": I DIR,@d1r$ 

940 PRINT:PRINT <CTRL> L : Laufwerk wechse 
1 n " 

950 IF d THEN 1000 

960 PRINT: PR INT "Name :." ; ra$ ; : INPUT " 

",name$ 

970 IF name$<>CHR$( 12 ) AND d THEN d=0:GOTO 
670 ELSE IF name$<>CHR$( 12 ) AND d =0 THEN 
RETURN 

980 1a=1a XOR 1:IF la=l THEN |B ELSE !A 
990 GOTO 920 

1000 name$=INKEY$:IF name$="" THEN 1000 

1010 GOTO 970 

1020 'Box xl,y 1 ,x 2 ,y 2 

1030 FOR x=xl TO x2:LOCATE x,yl:PRINT CHR$ 
(154):LOCATE x,y2:PRINT CHR$(154):NEXT:FOR 
y=yl TO y2:LOCATE xl,y:PRINT CHR$(149):LO 
CATE x2,y:PRINT CHR$(149):NEXT 
1040 LOCATE xl,yl:PRINT CHR$(150):LOCATE x 
2 ,y 1 :PRINT CHR$(156):LOCATE xl,y2:PRINT CH 
R$(147):LOCATE x2,y2:PRINT CHR$(153):RETUR 
N 

1050 'Farbe normal 

1060 RESTORE 1070:FOR d =0 TO 15:READ a:f(d 
)=a:NEXT:RETURN 

1070 DATA 0,1,2,5,11,14,8,7,6,15,16,19,21 
24,25,26 

1080 'Farbe Gruen 

1090 RESTORE 1070:FOR d =0 TO 15:READ a:f(d 

)=INT(d*24/15):INK d,f(d):NEXT:RETURN 

1100 ' Bild zeichnen 

1110 MODE 0:GOSUB 1150 

1120 IF ka >1 THEN CALL &800C 

1130 GOSUB 1630:CALL &8000 

1140 MODE 1:CALL &BC02:GOTO 150 

1150 FOR t=0 TO 15:INK t,f(t):NEXT 

1160 RETURN 

1170 MODE 2:END 

1180 start=1260:adr=&8000:11nes=5:GOSUB 11 

90:GOTO 1240 

1190 FOR q =1 TO 1 Ines 

1200 FOR s=l TO 10.-READ a$ : a = VA L ( " & " + a$ ) : P 
OKE adr,a:cs=c3+a 

1210 adr=adr+l:NEXT:READ a$:a=VAL("&"+a$) 
1220 IF csOa THEN PRlNT"Fehler ln Zelle", 
start+(q-l)* 10 :END 
1230 cs= 0 :NEXT:RETURN 

1240 cs=0:a=0:RESTORE 1320:adr=&8050:1ines 
=28:start=1320:GOSUB 1190:RETURN 
1250 'MC CODE BLOCK I (&8000-&8028) 

1260 DATA 21,00,CO,11,00,40,01,00,40,ED,26 
0 

1270 DATA 80,C9,11,00,CO,21,00,40,18,F2,3B 
5 

1280 DATA DD,6E,00,DO,66,02,DD,46,04,E5,49 
C 

1290 DATA CD,75,BB,El,CD,8A,BB,24,10,F5,61 
9 

1300 DATA C9.00,00,00,00,00,00,00,00,00,OC 
9 

1310 'MC CODE BLOCK II (&8050-&8180) 

1320 DATA 26,05,2E,06,11,86,80,CD,74,80,33 
7 

1330 DATA 2C,06,08,11,A5,80,CD,74,80,2C.35 
D 

1340 DATA 11,C4,80,CD,74,80,2C,10,FO,11,45 

3 

1350 DATA E3,80,CD,74,80,C9,E5,C5,CD,75,6D 
9 

1360 DATA BB,1A,47,13,1A,CD,5A,BB,13,10,34 
E 

1370 OATA F9,C1,E1,C9,1E,96,9A,9A,9A,9A,68 
0 

1380 DATA 9A,9A,9A,9A,9A,9A,9A,9A,9A,9A,60 

4 

1390 DATA 9A,9A,9A,9A,9A,9A,9A,9A,9A,9A,60 
4 

1400 DATA 9A,9A,9A,9A,9C,IE,97,9A,9A,9A,58 
7 

1410 DATA 9A,9A,9A,9A,9A,9A,9A,9A,9A,9A,60 
4 

1420 DATA 9A,9A,9A,9A,9A,9A,9A,9A,9A,9A,60 
4 


[1191] 

[806] 

[651] 

[ 589 ] 
[1254] 
[1271] 
[2081] 
[339] 

[6008] 

[2526] 

[3268] 

[364] 

[2889] 

[ 5875 ] 


[3037] 

[332] 

[ 1332 ] 
[330] 
[1580] 
[9549] 


[8153] 


[1158] 

[3490] 

[2277] 

[ 773] 
[4624] 

[1844] 

[1137] 

[1151] 

[1461] 

[1406] 

[ 1279] 

[555] 

[ 1120 ] 

[2919] 

[1827] 

[3107] 

[1402] 

[3790] 

[ 1040] 
[4245] 

[1106] 
[1621] 

[1591] 

[ 1986] 

[ 1972 ] 

[2336] 

[1557] 

[1848] 

[1644] 

[1838] 

[2205] 

[1425] 

[2565] 

[2266] 

[2266] 

[2150] 

[2266] 

[ 2266] 
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1430 DATA 9A,9A,9A,9A.9A,9D,1E.95,20,20,49 [1758] 
2 

1440 DATA 20.20,20,20,20,20,20,20,20,20,14 [1499] 
0 

1450 DATA 20,20,20,20,20,20,20,20,20,20,14 [1499] 
0 

1460 DATA 20,20,20,20,20,20,95,IE,93,9A,2A [1260] 
0 

1470 DATA 9A,9A,9A,9A,9A,9A,9A,9A,9A,9A,60 [2266] 
4 

1480 OATA 9A,9A,9A,9A,9A,9A,9A,9A,9A,9A,60 [2266] 

4 

1490 DATA 9A,9A.9A.9A,9A,9A,9A,99,21,79,56 [2315] 
9 

1500 DATA BD,3E,C3,77,23,11,10.81,73,23,39 [1599] 
0 

1510 DATA 72,C9,CD,70,BO,3F,C8,F2,IC,81,5C [929] 

B 

1520 OATA 3E,01,B7,C9,E5,11,63,81,01,05,39 [1712] 
F 

1530 DATA 00,ED,BO,El,E5,DD,El,DD,7E,04,68 [1268] 
0 

1540 DATA D6,81,3F,1F,C6,01,DD,77,04,06,3D [2557] 
A 

1550 DATA 04,C5.E5,11,68,81,01,05,00,ED,39 [1157] 
B 

1560 DATA BO,El,E5,11,63,81,EB,01,05,00,45 [845] 

C 

1570 DATA ED,BO,El,11,68,81,CD,64,BD,11,57 [2123] 
7 

1580 DATA 68,81,CD,58,BD,E5,DD,El,DD,35,68 [2411] 
0 

1590 DATA 04,CI,10,05,C9,00,00,00,20,83,31 [1939] 
6 

1600 FOR t=0 TO 15:fl(t)=f(t):NEXT [1628] 

1610 FOR a=0 TO 15:f(a)*fl(15-a):NEXT [1850] 

1620 RETURN [555] 

1630 'Blomorph zeichnen [2320] 

1640 ORIGIN 1,1:POKE &BB5A.&C9 [745] 

1650 FOR J=ka TO a(5) [1063] 

1660 FOR k=l TO a(6) [1367] 

1670 rz=a(3)+dr*j [433] 

1680 1z = a(1)+d1ma* k [ 788] 

1690 FOR n=1 TO a(8):r=rz:1=iz [1896] 

1700 ON funkt GOSUB 2210,2270,2320,2370,24 [2872] 
20,2470,2520,2570 

1710 IF ABS( 1 z)>a(7) OR ABS(rz)>a(7) THEN [ 1486] 
n=a(8) 

1720 NEXT [350] 

1730 IF ABS(rz)<a(7 ) OR ABS(1z)<a(7) THEN [2919] 
GOSUB 1780:PLOT j*4,k*2,co 

1740 a$=I NKEY$ : IF a$o"" THEN 1760 [ 1953 ] 

1750 NEXT k,j:GOTO 1770 [451] 

1760 IF LOWER$(a$)="a" THEN 1770 ELSE GOTO [2452] 
1750 

1770 POKE 8.BB5A.&CF: RETURN [ 1470] 

1780 'Farben setzen [1432] 

1790 zl=ABS(rz):z2=ABS(1z) [1093] 

1800 IF z1>a(7) THEN zl = 0 [1014] 

1810 IF z2 > a(7) THEN z2 = 0 [846] 

1820 co=15:fs=a(7)/15 [814] 

1830 FOR t=l TO 15 [819] 

1840 b=a(7)-fS*t [1132] 

1850 IF zl>b OR z2>b THEN CO=t:t=15 [1134] 

1860 NEXT [350] 

1870 RETURN [555] 

1880 'Ausschn1ttsvergroes?erung [1775] 

1890 MODE 0:GOSUB 1150:CALL &800C:x=0:y=0: [2847] 

GOTO 1970 

1900 GOSUB 2060 [863] 

1910 a$=LOWER$(INKEY$):IF a$="" THEN 1910 [1433] 

1920 GOSUB 2110 [869] 

1930 IF a$=up$ THEN y=y+2 ELSE IF a$=do$ T [2205] 
HEN y=y-2 

1940 IF a$= re$ THEN x = x + 4 ELSE IF a$=11$ T [1111] 
HEN x=x—4 

1950 IF a$< >se$ THEN 1900 [ 1222] 

1960 GOSUB 2060:SOUND 1 , 100,10:RETURN [2580] 

1970 GOSUB 1900 [895] 

1980 xl=x/4*dr+a(3):yl=y/2*d1ma+a(1):xcl=x [2016] 
:ycl=y 

1990 GOSUB 1900:x2=x/4*dr+a(3):y2=y/2*dima [2934] 
+a(l):xc2=x:yc2=y 

2000 MOVE xc1,yc1:ORAW xc2,ycl:DRAW xc2,yc [4453] 
2:DRAW xc1,yc2:DRAW xcl.ycl 

2010 IF bf1 THEN CALL &BB18:RETURN [1099] 

2020 PEN 7:LOCATE 3,23:PRINT"R1cht1g? (J/N [2417] 
)" 

2030 q$=INKEY$:IF q$="" THEN 2020 ELSE IF [2690] 
LOWER$(q$)="n" THEN 1880 

2040 a(l)=yl:a(2)=y2:a(3)=xl:a(4)=x2 [2144] 

2050 dr=(a{4)-a(3))/a(5):d1ma=(a(2)-a(1))/ [1737] 
a(6):GOTO 1140 

2060 ' Fadenkreuz darstellen [1534] 


2070 FOR f=0 TO 2:c(f+1)=TEST(x +4-4*f,y ) : N 

[3760] 

EXT:c(4)=TEST(x,y-2):c(5)=TEST(x , y+2) 


2080 PLOT X-4,y,7:DRAW x+4,y 

[1648] 

2090 PLOT x,y-2:DRAW x,y + 2 

[1672] 

2100 RETURN 

[555 ] 

2110 ' Fadenkreuz loeschen 

[603] 

2120 FOR f=0 TO 2:PLOT x+4-4*f,y,c(f+1):NE 

[3140] 

XT:PLOT x,y-2,c(4):PLOT x,y+2,c(5) 


2130 RETURN 

[ 555 ] 

2140 ' F(z) Wahl 

[459] 

2150 RESTORE 2190:fu=1:GOSUB 300:fu=0 

[2533] 

2160 LOCATE 1,25:PRINT CHR$(2 0 };"Funkt1on: 

[4763] 

funkt:CALL &8014,28,6,8+(funkt-l)*2 


2170 LOCATE 11,25:INPUT "",s:IF s>0 AND s< 

[2875] 

9 THEN funkt=s 


2180 GOTO 160 

[421] 

2190 DATA " 1 .. F(z)=EXP(z)+z“3", 2 .. F 

[8833] 

(z)=l/z*2+z*2" ," 3 .. F(z) = l/z“2 + z“3" , " 4 


.. F(z)=EXP(z)+l/z‘2"," 5 .. F(z) = z * 3 + SIN( 


z)+l/z*2"," 6 .. F(z) = z*3 + SIN(z)+e~z'' 


2200 OATA " 7 .. F(z)=1/z*2+z*4+SIN(z)"," 

[2479] 

8 .. F(z)=l/z*2+z*6" 


2210 'Funktionen 

[543] 

2220 ' f(z)=exp(x)+z*3 

[964] 

2230 12=1*1:r2=r*r:er=EXP(r) 

[1996] 

2240 rz = er*COS(i ) + r* ( r2-3*i2 ) 

[ 1144] 

2250 iz = er*SIN(i ) + 1 *(3*r2-12) 

[801] 

2260 RETURN 

[555 ] 

2270 'f(z)=l/z"2+z“2 

[1243] 

2280 i2=i*i:r2=r*r:ne=(r2+12)“2 

[1389 ] 

2290 rz=(r2-12)/ne+r2-12 

[1257] 

2300 iz=-2*r*1/ne-2*r*i 

[1544] 

2310 RETURN 

[ 555] 

2320 ' f (z)=l/z*2+z*3 

[ 1246] 

2330 i2=1 *i :r2=r*r:ne=(r2+12)*2 

[1389] 

2340 rz=(r2-12)/ne+r*(r2-3*i2) 

[1106] 

2350 1z=-2*r*1/ne+i*(3*r2-12) 

[1727] 

2360 RETURN 

[ 555 ] 

2370 1 f(z)=exp(z)+l/z"2 

[1706] 

2380 12=1*i:r2=r*r:ne=(r2+12)'2:er=EXP(r) 

{1630] 

2390 rz=(r2-12)/ne+er*C0S(1) 

[2149] 

2400 iz=-2*r*i/ne + er*SIN(1 ) 

[1917] 

2410 RETURN 

[ 555 ] 

2420 ' f (z)=sin(z)+z'3+z*-2 

[ 1222 ] 

2 4 30 ex=EXP (1) :mex = EXP(-i):12 = 1 * 1: r2=r*r:n 

[ 2892 ] 

e=(r2+ 1 2 ) * 2 


2440 rz = SIN(r)*0.5*(ex+mex ) + r* ( r2-3*i2) + (r 

[2422] 

2—12)/ne 


2450 1z=COS(r)*0.5* ( ex-mex)+i *( 3*r2-i2)-2* 

[2319] 

r * 1 /ne 


2460 RETURN 

[555] 

2470 'f(z)=s1n(z)+z”3+e'z 

[1195] 

2480 ex=EXP(1):mex=EXP(-1 ): i2=i*i : r2=r*r:e 

[2541] 

r=EXP(r) 


2490 rz=SIN(r)*0.5*(ex+mex)+r* { r2-3*i2)+er 

[2837] 

*COS(i) 


2500 1z=COS(r ) *0.5* ( ex-mex)+1*(3*r2-12)+er 

[ 1536] 

*SIN ( 1 ) 


2510 RETURN 

[ 555 ] 

2520 ' f ( z ) = l/z'‘2 + z*4+si n ( z ) 

[ 1801 ] 

2530 12=1*1:r2=r*r:ne=(r2+12)'2:ex=EXP(1 ): 

[ 3450] 

mex=EXP(-i ) 


25 40 rz=(r2-i2 ) / ne+r2*r2-6*r2*i2 + i2*12 + SIN 

[2864] 

( r ) *0. 5*( ex+mex ) 


2550 1z=—2* r*i/ne+4*r“3*1-4*1*3*r+C0S(r)*0 

[2160] 

.5*(ex-mex ) 


2560 RETURN 

[ 555 ] 

2570 ' f(z)=l/z'2+z*6 

[ 1239 ] 

2580 12=1*1 : r2=r*r:ne=(r2 + 12 ) “ 2 

[ 1389] 

2590 rz=( r2-1 2)/ne+r2*3-15*r2 , ‘2*i 2+15*12*2 

[ 2869 ] 

*r2-12*3 


2600 1z=-2*r*i/ne+6*r*5*1-20*r*3»1 * 3 + 6* r*1 

[4611] 

2610 RETURN 

[555] 

10 • ** BIOEXP ** 

[339 ] 

20 ' by M.S/J-M.M 

[841] 

30 ' 

[117] 

40 CALL &BC02:RAD 

[409] 

50 GOSUB 210:MODE 0:GOSUB 390 

[1238] 

60 FOR j = l TO xst 

[1338] 

70 FOR k=1 TO yst 

[1770] 

80 rz=rst+dr*j 

[ 1060] 

90 1z=1st+d1ma*k 

[1337] 

100 FOR n=l TO rti : r=rz : 1=1z 

[ 1347] 

110 ’ Hier die Funktion eingeben, die unte 

[3700] 

rsucht werden soll 


120 1 Beispiel: f ( z ) =exp( z)+ z* 3 

[ 3424 ] 

130 er=EXP(r) 

[ 431] 

140 rz=er*COS(1)+r*(r~2-3*1*2) ‘ rz=REALTE 

[ 995 ] 

IL 


150 iz = er*SIN(i )+i*(3*r"2-i*2) ' 1 z = IMAGTE 

[1635] 

IL 


160 IF ABS ( 1z )> un OR ABS(rz)>un THEN n=rti 

[2447] 

170 NEXT 

[350] 
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I—Listing 


180 

IF ABS(rz)< un OR ABS(iz)<un 

THEN GOSUB 

[2793] 

340:PLOT J*4,k*2,co 




190 

NEXT k ,j 



[371] 

200 

CALL &BB18:SAVE name$,b,4C000,&4000 


[2108] 

210 

‘ PARAMETER EINGABE 



[ 866] 

220 

MODE 2:PRINT"Fraktale by 

M.S/J-M 

M 

[2863] 

230 

PRINT:INPUT"Imaginer Teil Anfang:" 

i s 

[ 2946 ] 

240 

INPUT"Imaginaerer Teil Ende 

" , ien 


[2293] 

250 

INPUT"Reel1 er Teil Anfang 

" , rst 


[2659] 

260 

INPUT"Ree Iler Teil Ende 

" , ren 


[ 2085] 

270 

INPUT"Schritte(1n X Rieht.) 

" , xst 


[3165] 

280 

INPUT"Schritte(in Y Rieht.) 

" ,yst 


[3270] 

290 

INPUT"Rechentiefe 

" , rti 


[3530] 

300 

INPUT"Grenze (Unendl.) 

" , un 


[2031] 

310 

INPUT"Name 

" , name$ 


[ 2032 ] 

320 

dr=(ren-rst)/xst:dima=(ien-ist)/yst 


[2553] 

330 

RETURN 



[ 555 ] 

340 

'Farben setzen 



[1432] 

350 

zl=ABS(rz):z2=A8S(1z) 



[ 1093 ] 

360 

IF z 1 >un THEN za = z2 



[ 769 ] 

370 

IF z2>un THEN za=zl 



[1174] 

380 

co=15-ROUNO(za#15/un):RETURN 


[2287] 

390 

' Farben definieren (fuer Gruenmoni 

tor 

[4231] 

400 

FOR t = 0 TO 15:INK t,ABS(t*26/15 ) 


[2175] 

410 

NEXT:PAPER 0:BORDER 0:CLS:RETURN 


[2384] 


Programm: 

Schlange 

Artikel: 

Sdhlangenhaft 

464- 664 - 6128 

Disk./Kass. 


10 •========================== [1764] 

20 ' ** ** ** ** [278] 

30 * *** CAVE *** [744] 

40 ' *** *** [51] 

50 • *** j.Koeplinger *** [1642] 

60 ' ** ** ** ** [278] 

70 •========================== [1764] 

80 ' [117] 


90 PAPER 0:PEN 1:CLS:INK 0,0:INK l,24:MODE [2947] 
1:BORDER 0 

100 LOCATE 1,13: PRINT 11 (F) ARB- oder (G)RUE [3600] 
Nmonitor ?" 

110 a$ = "":WHILE a$o"f" AND a$o"g" :a$=LOW [2537 ] 
ER$(INKEY$):WEND 

120 GOSUB 2750 [901] 

130 IF a$="f" THEN INK 2,12:INK 3,3:GOTO 1 [3098] 
50 

140 INK 2,15:INK 3,9 [453] 

150 ENV 2,1,14,1,1,0,10,1,-3,1,3,-1,20 [1520] 

160 ENV 3,1,15,1,1,0,10,1,-2,1,3,-1,20 [1352] 

170 ENV 4,1,14,1,1,0,10,1,-3,1,3,-1,20 [1801] 

180 LOCATE 1,13:PRINT "(C)OMPUTER oder (S) [3741] 
TEREOanlage 7" 

190 WHILE a$o"c" AND a$<>"s" :a$=LOWER$ (IN [3696] 
KEYS):WEND 


200 GOSUB 2750 [901] 

210 IF a$ = "c'' THEN POKE 0,1 ELSE POKE 0,0 [1802] 

220 CLS [91] 

230 IF HIMEM=36863 THEN 270 [681] 

240 SYMBOL AFTER 256:MEMORY &8FFF [1898] 

250 LOAD "cave.mcl",&A000 [1369] 

260 LOAD "cave.mc2",&9000 [1307] 

270 DEFINT a-z:DIM merk(40,25),feld(40,25) [4304] 

,sx(500),sy(500),ri(500),adr(12),t(2,96) 

280 GOSUB 2320 :' Einleitungsscreen [2136] 

290 RESTORE 340:FOR g=0 TO 12:READ adr(g): [2691] 
NEXT 


300 FOR g=l TO 4:READ p(g):NEXT [2612] 

310 1 [117] 

320 ' * DATAS fuer Screens * [1325] 

330 ' [117] 

340 DATA &9280,&91c0,&91e0,&91d0,&91f0, &9 [2897] 
200,&9210,&9220,&9230, &9240,&9250,&9260,& 

9270 

350 DATA 121,126,126,132 [976] 

360 1 [117] 

370 ' >** HAUPTSCHLEIFE **< [857] 

380 ' [117] 

390 INK 1,18,24:CLS:PEN l:LOCATE 12,12:PRI [3225] 
NT "DRUECKEN SIE FEUER" 

400 PEN 2:LOCATE 16,14:PRINT "zum Start" [2299] 

410 WHILE INKEY(76)=-l:WEND:GOSUB 2750 [2538] 

420 levelmax=4 [639] 

430 level=l:zucker=4:schwer=l:CLS [1535] 


440 ' * Spielschleife 

450 punkte=0:drehflag=0:wart=0:ri=l:lflag= 
0:zeig2=0:zeig=0 

460 FOR g=39 TO 32 STEP -1:sx(zeig)=g:sy(z 

eig)=23:ri(zeig)=l:zeig=zeig+l : NEXT 

470 INK 1,24 

480 ' * Bildschirm 

490 ON level GOTO 500,510,520,530 

500 RESTORE 3570 .'GOTO 540 

510 RESTORE 3320:GOTO 540 

520 RESTORE 3070:GOTO 540 

530 RESTORE 3820 

540 FOR zei=2 TO 25 

550 FOR g=l TO 40:merk(g,zei)=1:NEXT 

560 xp=l 

570 READ a 

580 IF a<13 THEN 660 

590 ON a-12 GOTO 700,600,650 

600 READ anz:READ b 

610 FOR g=l TO anz:IF b>0 THEN CALL &AOOO, 
(xp-1)*8,(25-zei)*8+7,2,8,adr(b):feld(xp,z 
ei)=1:GOTO 630 

620 CALL 5.A000, (xp-l)*8, (25-zei) *8+7,4,16, 
adr(b):feld(xp,zei)=0:feld(xp+l,zei)=0:mer 
k(xp,zei)=0:xp=xp+1 
630 xp=xp+1:NEXT g 
640 GOTO 570 

650 READ anz:FOR g=l TO anz:feld(xp,zei)=0 
:feld(xp+l,zei)=0:xp=xp+2:NEXT g:GOTO 690 
660 IF a>0 THEN CALL &A000,(xp-1)*8,(25-ze 
i)*8+7,2,8,adr(a):feld(xp,zei)=1:GOTO 680 
670 CALL &A000,(xp-1)*8,(25-zei)*8+7,4,16, 
adr(a):feld(xp,zei)=0:feld(xp+l,zei)=0:mer 
k(xp,zei)=0:xp=xp+l 
680 xp=xp+l 
690 GOTO 570 
700 NEXT zei 

710 CALL &A000,248,23,4,16,&90C0 

720 FOR xp=264 TO 296 STEP 8:CALL &A000,xp 

,23,2,16,&9120:NEXT 

730 CALL &A000,304,23,2,16,&9160:xp=32:yp= 
23 

740 ' * Action 

750 pri=0: IF INKEY(74)>-1 AND riol THEN p 
ri=l 

760 IF INKEY(72)>-l AND ri<>2 THEN pri=2 
770 IF INKEY(75)>-l AND ri<>3 THEN pri=3 
780 IF INKEY(73)>-l AND ri<>4 THEN pri=4 
790 ON pri+1 GOTO 970,810,850,890,930 
800 1 links ? 

810 IF ri=3 THEN 1770 

820 IF feld(xp-l,yp) OR feld(xp-l,yp+l) TH 
EN 97 0 

830 change=ri:ri=pri:drehflag=2:GOTO 970 

840 ' oben 7 

850 IF ri=4 THEN 1770 

860 IF feld(xp,yp-l) OR feld(xp+l,yp-l) TH 
EN 970 

870 GOTO 830 
880 ' rechts ? 

890 IF ri=l THEN 1770 

900 IF feld(xp+2,yp) OR feld(xp+2,yp+l) TH 
EN 970 

910 GOTO 830 
920 ' runter ? 

930 IF ri=2 THEN 1770 

940 IF feld(xp,yp+2) OR feld(xp+i,yp+2) TH 
EN 970 

950 GOTO 830 
960 ' * Bewegen 

970 ON ri GOTO 990,1050,1110,1170 
980 'links 

990 IF feld(xp-l,yp) OR feld(xp-l,yp+l) TH 
EN 1230 

1000 xp=xp-l:madr=&90C0 

1010 IF drehflag=0 THEN CALL &A000,(xp+1)* 
8,(25-yp)*8+7,2,16,&9120:GOTO 1260 
1020 IF change=2 THEN adr=&9380 ELSE adr=& 
92C0 

1030 CALL &A000,(xp-drehflag+2)*8,(25-yp)* 
8+7,4,16,adr:GOTO 1260 
1040 'oben 

1050 IF feld(xp,yp-l) OR feld(xp+l,yp-l) T 
HEN 1230 

1060 yp=yp-l:madr=&9000 

1070 IF drehflag=0 THEN CALL &A000,(xp-1)* 
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[784] 1 

[4900] 

[4920] 

[58] 

[730] 

[1959] 

[583] 

[719] 

[1152] 

[779] 

[ 1200 ] 

[2123] 

[574] 

[428] 

[935] 

[1625] 

[1522] 

[4360] 


[4192] 


[2357] 

[379] 

[2443] 

[5353] 

[5388] 


[1146] 

[379] 

[510] 

[1432] 

[2778] 

[2095] 

[445] 

[1966] 

[725] 

[1242] 

[1806] 

[1245] 

[1311] 

[560] 

[2829] 

[1671] 

[245] 

[483] 

[2455] 

[318] 

[792] 

[590] 

[2839] 

[318] 

[402] 

[233] 

[2357] 

[318] 

[510] 

[1378] 

[1103] 

[2793] 

[1376] 

[4049] 

[1678] 

[3268] 

[ 100 ] 

[2400] 

[1523] 

[3273] 


























"Listing—| 


8, (23-yp)*8+7,4,8,69100:GOTO 1260 

1080 IF change=l THEN adr=&9300 ELSE adr=& [970] 

92C0 

1090 CALL &A000,(xp-l)*8,(22-yp+drehflag)* [3038] 
8+7,4,16,adrrGOTO 1260 

1100 'rechts [723] 

1110 IF feld(xp+2,yp) OR feld(xp+2,yp+l) T [2915] 
HEN 1230 

1120 xp=xp+l:madr=69040 [2259] 

1130 IF drehflag=0 THEN CALL &A000,(xp-2)* [3164] 

8,(25-yp)*8+7,2,16,&9120:GOTO 1260 

1140 IF change=2 THEN adr=&9340 ELSE adr=& [1502] 

9300 

1150 CALL 6AOOO,(xp-4+drehflag)*8,(25-yp)* [3911] 
8+7,4,16,adr:GOTO 1260 

1160 'unten [531] 

1170 IF feld(xp,yp+2) OR feld(xp+l,yp+2) T [2364] 
HEN 1230 

1180 yp=yp+l:madr=&9080 [2246] 

1190 IF drehflag=0 THEN CALL 6AOOO,(xp-1)* [3387] 

8,(26-yp)*8+7,4,8,69100:GOTO 1260 

1200 IF change=l THEN adr=69340 ELSE adr=6 [1216] 

9380 

1210 CALL 6A000,(xp-1)*8,(28-yp-drehflag)* [2831] 
8+7,4,16,adr:GOTO 1260 


1220 'steht vor Wand [587] 

1230 wart=wart+l:IF wart=30 THEN 1690 [1722] 

1240 GOTO 750 [423] 

1250 'Schwanz bewegen + Punkte berechnen [2342] 

1260 CALL 6A000,(xp-1)*8,(25-yp)*8+7,4,16, [2613] 

madr 

1270 wart=0:IF merk(xp,yp)=-l THEN 1550 [2300] 

1280 IF merk{xp,yp)=0 THEN punkte=punkte+l [2834] 
:GOSUB 2750 

1290 merk(xp,yp)=-l [1012] 


1300 IF punkte=p(level) THEN GOSUB 1970:GO [3967] 
TO 450 

1310 sx(zeig)=xp:sy(zeig)=yp:ri(zeig)=ri:z [3106] 
eig=(zeig+l)MOD 501 

1320 drehflag=drehflag-1:IF drehflag=-l TH [3191] 
EN drehflag=0 

1330 lflag=lflag+l:IF lflag=(9-schwer*2) T [3504] 
HEN lflag=0:GOTO 750 

1340 x=sx(zeig2):y=sy(zeig2):r=ri(zeig2):I [6077] 
F (r=2) OR (r=4) THEN b=4:h=8 ELSE b=2:h=l 
6 

1350 mri=r:merk(x,y)=-2 [865] 

1360 CALL 6A000,(x-1)*8,(25-y)*8+7,b,h,693 [2319] 
C0 

1370 zeig2=(zeig2+l) MOD 501:x=sx(zeig2):y [3160] 
=sy(zeig2):r=ri(zeig2) 

1380 IF r=ri((zeig2+l)MOD 501) OR r>2 THEN [1116] 
1400 


1390 GOTO 1490 [313] 

1400 ON r GOTO 1410,1420,1430,1440 [1430] 

1410 adr=69160:b=2:h=16:GOTO 1450 [2019] 

1420 adr=69180:b=4:h=8:GOTO 1450 [2139] 

1430 adr=&91A0:b=2:h=16:GOTO 1450 [2468] 

1440 adr=69140:b=4:h=8 [1582] 

1450 CALL 6A000,(x-l)*8,(25-y)*8+7,b,h,adr [1889] 

1460 IF mri<3 OR mri=r THEN 1490 [1331] 


1470 IF mri=3 THEN IF r=4 THEN CALL 6AOOO, [6505] 
X*8 , (26—y)*8+7,2,8,&93C0 ELSE CALL 6A000,X 
*8,(24-y)*8+7,2,16,&93C0 

1480 IF mri=4 THEN IF r=l THEN CALL 6A000, [4031] 
X*8 ,(24-y)*8+7,4,8,693C0 ELSE CALL 6A000,( 


x-2)*8,(24-y)*8+7,2,8,693C0 

1490 FOR t=l TO 20*(3-schwer):NEXT [1591] 

1500 GOTO 750 [423] 

1510 ' [117] 

1520 ' * TOT [84] 

1530 ' [117] 

1540 ' in den Schwanz gebissen [1462] 

1550 ENT 1,30,-3,1,30,10,1,1,0,10 [1287] 

1560 SOUND 1,120,70,15,0,1:SOUND 2,122,70, [5937] 

15,0,1:SOUND 4,124,70,15,0,1 

1570 FOR t=l TO 1000:NEXT [1394] 


1580 PEN 1:LOCATE 10,11:PRINT "Die Schlang [3410] 
e hat sich" 

1590 LOCATE 2,13:PRINT "in den Schwanz geb [3378] 
issen und hat jetzt" 

1600 LOCATE 7,15:PRINT "keine Lust mehr zu [3849] 
m Spielen." 

1610 WHILE INKEY(76)=-l:WEND:GOSUB 2750 [2538] 

1620 CLS:zucker=zucker-l [2169] 

1630 IF zucker=0 THEN 1830 [593] 


1640 LOCATE 3,11:PRINT "Doch gluecklicherw [6426] 
eise hast du noch" 

1650 LOCATE 5,13:PRINT zucker;"Zuckerstuec [3249] 
kchen, und als Du" 

1660 LOCATE 1,15:PRINT "der Schlange 1 gib [3556] 
st, spielt sie weiter." 


1670 GOTO 450 [442] 

1680 ' zu lange an Wand [1039] 

1690 ENT 1,30,1,2 [659] 

1700 SOUND 1,400,60,15,0,1:SOUND 2,402,60, [3129] 
15,0,1:SOUND 4,404,60,15,0,1 

1710 FOR t=l TO 1000:NEXT [1394] 

1720 PEN 1:LOCATE 6,11:PRINT "Du hast die [4345] 
Schlange zu lange" 

1730 LOCATE 4,13:PRINT "warten lassen, und [3795] 
jetzt ist ihr" 

1740 LOCATE 15,15:PRINT "langweilig." [1727] 

1750 GOTO 1610 [353] 

1760 ' rueckwaerts gelenkt [1420] 

1770 ENT 1,1,0,10,15,1,1,1,0,10:SOUND 1,25 [4790] 
,35,15,0,1:SOUND 2,26,35,15,0,1:SOUND 4,28 
,35,15,0,1 

1780 FOR t=l TO 1000:NEXT [1394] 


1790 PEN 1:LOCATE 4,11:PRINT "'Rueckwaerts [5820] 
lenken gilt nicht !'" 

1800 LOCATE 5,13:PRINT "sagt die Schlange [3403] 
beleidigt." 


1810 GOTO 1610 [353] 

1820 ' kein Zucker mehr [289] 

1830 LOCATE 6,11:PRINT "Da du jetzt auch k [4431] 
einen Zucker" 

1840 LOCATE 6,13:PRINT "mehr hast, verlaes [4091] 
st dich die" 

1850 LOCATE 6,15:PRINT "Schlange." [1844] 

1860 WHILE INKEY(76)=0:WEND [1411] 

1870 WHILE INKEY(76)=-l:WEND:GOSUB 2750 [2538] 

1880 CLS:LOCATE 6,11:PRINT "Du hast erreic [4155] 
ht:" 

1890 LOCATE 15,13:PRINT "Level";level [2227] 

1900 LOCATE 15,14:PRINT "Grad ";schwer [2148] 

1910 WHILE INKEY(76)=0:WEND [1411] 

1920 WHILE INKEY(76)=-l:WEND:GOSUB 2750 [2538] 

1930 RUN 220 [274] 

1940 ' [117] 

1950 ' * Geschafft [954] 

I960 ' [H7] 

1970 ' naechster Level [807] 

1980 level=level+l [1036] 

1990 IF level>levelmax THEN schwer=schwer+ [2296] 
1 :level=l 

2000 IF schwer=4 THEN 2080 [1390] 

2010 LOCATE 13,20:PRINT "GUT GEMACHT !" [2788] 

2020 LOCATE 10,22:PRINT "Als naechstes: Le [3186] 
vel";level 

2030 LOCATE 25,23:PRINT "Grad schwer [914] 

2040 ENT 1,20,-4,1 [674] 

2050 FOR t=l TO 6:SOUND 1,100,20,15,0,1:SO [4837] 
UND 2,102,20,15,0,1:SOUND 4,104,20,15,0,1: 

NEXT 

2060 GOTO 450 [442] 

2070 ' alles geschafft ! [913] 

2080 ENT 1,20,-4,1 [674] 

2090 ENT 2,10,-4,1,1,76,1,9,-4,1 [1235] 


2100 SPEED INK 6,6:INK 0,0,12:BORDER 12,0 [2600] 

2110 FOR t=l TO 10:SOUND 1,100,20,15,0,1:S [3746] 
OUND 2,103,20,15,0,1:SOUND 4,104,20,15,0,2 
: NEXT 

2120 WHILE SQ(1)>10:WEND:INK 0,0:BORDER 0 [1739] 

2130 CLS:LOCATE 11,5:PRINT "Hiermit wirst [5552] 
du zum" 

2140 LOCATE 16,10:PRINT "CAVE CHAMP" [1457] 

2150 LOCATE 4,15:PRINT "ernannt und mit de [4519] 
r GOLDENEN NADEL" 

2160 LOCATE 12,25:PRINT "ausgezeichnet !" [1818] 

2170 MOVE 260,64:DRAW 340,140:DRAWR 4,0:DR [3156] 
AWR 0,4:DRAWR -4,0:DRAWR 0,-4 

2180 ENV 1,1,-1,2,1,0,5,5,-3,3 [995] 

2190 FOR t=l TO 3 [592] 

2200 SOUND 2,0,-2,0,1,0,12 [1235] 

2210 SOUND 1,0,66,0 [1210] 

2220 WHILE SQ{1)>10:WEND [1760] 

2230*SOUND 1,80,44,15:SOUND 2,127,44,15:SO [4185] 
UND 4,319,44,15 

2240 SOUND 1,0,22 [1140] 

2250 WHILE SQ(1)>10:WEND [1760] 

2260 NEXT || 350] 


6/7'90 PC 49 



















I—Listing 


MOMENT <"; 

' Sound-Interrup 


2270 WHILE INKEY(76)=—1:WEND 
2 280 CLS:WHILE INKEY$o" n :WEND:END 
2290 ' 

2300 1 * Einleitungsscreen 
2310 ' 

2320 DATA 1,5,9,0,1,5,2,0,10,0,1,5,5,5,8 

2330 DATA 6,0,0,0,6,0,6,0,6,0,6,0,0,0,0 

2340 DATA 6,0,0,0,6,0,6,0,6,0,6,0,1,5,9 

2350 DATA 6,0,0,0,6,0,6,0,6,0,6,0,6,0,0 

2360 DATA 4,5,5,5,3,0,7,0,4,5,3,0,4,5,8 

2370 RESTORE 2320 

2380 FOR zei=l TO 5 

2390 FOR spa=l TO 15 

2400 READ a:IF a=0 THEN 2490 

2410 IF a=l THEN adr=&9340 ELSE IF a=2 THE 

N adr=&9380 ELSE IF a=3 THEN adr=&92C0 ELS 

E IF a=4 THEN adr=&9300 ELSE IF a=7 THEN a 

dr=&9080 ELSE IF a=8 THEN adr=&9040 ELSE 2 

440 

2420 CALL &A000,spa*16+24,96+(5-zei)*16,4, 

1 6,adr 

2430 GOTO 2490 

2440 x=spa*16+24:y=96+(5-zei)*16 

2450 IF a=5 THEN CALL &AOOO,x,y,2,16,&9120 

:CALL &A000,x+8,y,2,16,&9120 

2460 IF a=6 THEN CALL &A000,x,y,4,8,&9100: 

CALL &A000,X,y-8,4,8,&9100 

2470 IF a=9 THEN CALL &A000,x,y,2,16,&9120 

:CALL &A000,X+8,y,2,16,&9160 

2480 IF a=10 THEN CALL &AO00,x,y,4,8,&9140 

:CALL &A000,X,y-8,4,8,&9100 

2490 NEXT spa,zei 

2500 LOCATE 6,18:PRINT "ein Programm von J 
. Koeplinger" 

2510 LOCATE 31,25:PRINT 
2520 EVERY 8 GOSUB 2670 
ts 

2530 tanz=96 
2540 RESTORE 2790 
2550 FOR ton=l TO tanz 
2560 FOR kanal=0 TO 2 
2570 READ t(kanal,ton) 

2580 NEXT kanal 
2590 NEXT ton 

2600 tonflag=l: 1 Sound-Einschalten 
2610 LOCATE 31,25:PRINT SPACES(10); 

2620 WHILE INKEY(76)=-l:WEND 
2630 tonflag=0:merkflag=0 
2640 ' 

2650 ' * Toninterrupts * 

2660 1 

2670 IF tonflag=0 THEN RETURN 

2680 IF merkflag=0 THEN ton=0:merkflag=l 

2690 ton=ton+l:IF ton>tanz THEN ton=l 

2700 FOR kanal=0 TO 2 

2710 IF t(kanal,ton)=0 THEN 2730 

2720 SOUND 2'kanal+128,t(kanal,ton)/(1+PEE 

K(0)/2),64,15,kanal+2 

2730 NEXT kanal 

2740 RETURN 

2750 SOUND 2,30,5,13:RETURN 
2760 ' 

2770 ' * Tondatas * 

2780 ' 

2790 DATA 159,638,0, 127,0,319, 119,956,37 
9, 127,851,338 

2800 DATA 106,638,0, 127,0,319,142,426,338 
, 127,638,426 

2810 DATA 106,506,253, 159,638,0, 142,851, 
284, 127,638,319 

2820 DATA 213,851,338, 119,0,0, 127,676,0, 
142,0,0 

2830 DATA 253,0,159, 213,638,127, 190,956, 
119, 169,851,127 

2840 DATA 127,0,106, 159,638,127, 169,426, 
142, 213,638,127 

2850 DATA 253,0,106, 0,638,159, 213,676,14 
2, 159,758,127 

2860 DATA 0,638,159, 106,506,0, 80,426,253 
, 159,0,0 

2870 DATA 0,402,319, 150,536,0, 134,402,40 
2 , 100,0,0 

2880 DATA 106,536,358, 134,0,0, 179,426,26 
8 , 106,536,0 

2890 DATA 119,602,301, 150,478,0, 201,402, 


[1515] 

[1583] 

[117] 

[606] 

[117] 

[1668] 

[1651] 

[1705] 

[1809] 

[1509] 

[790] 

[1109] 

[507] 

[1445] 

[9983] 


[2851] 

[337] 

[1789] 

[4785] 

[3013] 

[5308] 

[4705] 

[788] 

[2879] 

[1289] 

[2695] 

[924] 

[832] 

[681] 

[774] 

[1472] 

[695] 

[501] 

[2487] 

[1698] 

[1515] 

[1575] 

[117] 

[1176] 

[117] 

[656] 

[2417] 

[2423] 

[774] 

[828] 

[4183] 

[695] 

[555] 

[1904] 

[117] 

[129] 

[117] 

[2089] 

[1864] 

[2645] 

[1670] 

[2004] 

[3345] 

[2571] 

[2066] 

[ 2102 ] 

[2575] 

[1534] 


239, 179,301,0 

2900 DATA 159,268,268, 0,0,0, 0,402,0, 0,0 [1607] 

,0 

2910 DATA 0,638,159, 319,0,127, 379,956,11 [2854] 
9, 338,851,127 

2920 DATA 0,638,106, 319,0,127, 338,426,14 [1956] 
2, 426,638,127 

2930 DATA 253,506,106, 0,638,159, 284,851, [2161] 
142, 319,638,127 

2940 DATA 338,851,213, 0,0,169, 426,676,14 [2348] 
2, 0,0,213 

2950 DATA 201,1012,338, 190,676,379, 169,5 [2329] 
06,402, 127,0,0 

2960 DATA 113,676,268, 134,0,0, 169,536,22 [2106] 
5, 150,676,0 

2970 DATA 142,851,338, 169,851,0, 213,676, [2401] 
284, 190,568,338 

2980 DATA 169,506,402, 0,676,0, 0,1012,0, [1840] 

0,902,0 

2990 DATA 319,804,159, 0,536,150, 402,402, [1567] 
134, 0,0,100 

3000 DATA 358,536,106, 0,0,134, 268,426,17 [1909] 
9, 0,536,106 

3010 DATA 301,602,119, 0,478,150, 239,402, [2191] 
201, 0,301,179 

3020 DATA 268,268,159, 0,319,0, 0,402,0, 0 [1662] 
,536,0 

3030 ' [H7] 

3040 ' * SCREENDATA * [220] 

3050 • [117] 

3060 1 L3 [78] 

3070 DATA 11,14,30,3,12,11,14,6,3,12,13 [1635] 

3080 DATA 1,14,5,0,7,14,4,4,8,14,7,0,2,1,0 [1964] 
,0,0,2,13 

3090 DATA 1,15,5,6,14,4,3,5,15,7,2,1,15,3, [1718] 

2.13 

3100 DATA 1,0,7,4,4,8,0,0,7,8,0,0,0,7,14,8 [3256] 
,4,8,0,2,1,0,7,8,0,2,13 

3110 DATA 1,15,1,6,3,12,1,15,2,6,5,15,3,6, [4242] 

14.8.3.5.15.1.6.5.15.1.2.1.15.1.2.13 

3120 DATA 1,0,0,2,1,0,7,8,0,0,7,8,14,9,0,2 [1573] 
,1,0,2,13 

3130 DATA 1,15,2,2,1,15,1,6,5,15,2,2,1,15, [3127] 

9.2.1.15.1.2.13 

3140 DATA 10,4,8,0,2,1,0,0,0,7,4,9,10,14,1 [2344] 
3,4,8,0,7,4,9,1,0,2,13 

3150 DATA 11,3,5,15,1,2,1,15,3,6,3,12,11,1 [3386] 

4.13.3.5.15.1.6.3.3.5.15.1.2.13 

3160 DATA 1,0,0,2,1,0,7,8,0,0,2,1,14,11,0, [1828] 

2.13 

3170 DATA 1,15,2,6,5,15,1,6,5,15,2,6,5,15, [1960] 

11.2.13 

3180 DATA 1,0,7,8,0,0,0,7,8,0,0,0,7,14,4,4 [3097] 
,8,0,7,14,6,4,8,0,7,4,9,13 

3190 DATA 1,15,1,2,1,15,3,6,5,15,3,6,14,4, [4264] 

3.5.15.1.2.11.14.5.3.5.15.1.6.3.12.13 

3200 DATA 1,0,2,1,0,7,8,0,7,14,4,4,8,14,5, [2771] 
0,2,1,14,5,0,2,13 

3210 DATA 1,15,1,2,1,15,1,2,1,15,1,6,3,3,3 [3077] 
,12,1,15,5,2,1,15,5,2,13 

3220 DATA 1,0,2,1,0,2,1,0,0,0,2,10,14,7,4, [3335] 
8,0,2,1,0,7,8,0,7,8,0,2,13 

3230 DATA 1,15,1,2,1,15,1,2,1,15,3,2,11,14 [4283] 

,7,3,5,15,1,6,5,15,1,2,1,15,1,6,5,15,1,2,1 

3 

3240 DATA 1,0,2,1,0,2,10,4,4,4,8,0,2,1,14, [2891] 
7,0,2,1,14,3,0,2,13 

3250 DATA 1,15,1,2,1,15,1,6,3,3,3,12,1,15, [3380] 

1.6.5.15.7.2.1.15.3.2.13 

3260 DATA 1,0,2,1,0,0,0,2,1,0,0,0,7,14,8,4 [2408] 
,8,0,2,10,14,6,4,9,13 

3270 DATA 1,15,1,6,5,15,3,6,5,15,3,6,14,8, [3363] 

3.5.15.1.6.14.7.3.12.13 

3280 DATA 1,0,0,0,7,8,0,0,0,7,8,14,7,0,15, [1994] 

4.2.13 

3290 DATA 1,15,3,2,1,15,3,2,1,15,11,2,13 [1826] 

3300 DATA 10,14,6,4,9,10,14,6,4,9,10,14,22 [2055] 
,4,9,13 

3310 ' L2 [75] 

3320 DATA 11,14,38,3,12,13 [1034] 

3330 DATA 1,14,19,0,2,13 [582] 

3340 DATA 1,15,19,2,13 [864] 

3350 DATA 1,0,7,14,4,4,8,0,7,8,0,7,14,8,4, [2991] 
8,0,7,8,0,7,14,4,4,8,0,2,13 

3360 DATA 1,15,1,2,11,3,3,3,5,15,1,2,1,15, [5371] 
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Programm—i 



Slot-Machine 

Ein Spielautomat der Extraklasse 

Lassen Sie sich entführen in die Glitzerwelt von Las Vegas, wo an jeder 
Ecke der Spielteufel, mit bunten Lichtern verkleidet, nur darauf wartet, Ih¬ 
nen das Geld aus der Tasche zu nehmen. Wir bieten Ihnen eine CPC-Simu- 
lation eines Spielautomaten, die ihresgleichen sucht. 


Unkel Sam’s Gambling Machine 
strotzt nur so vor Einfällen und Überra¬ 
schungen. Wir werden im folgenden 
bewußt darauf verzichten, Ihnen die 
Besonderheiten und die Gewinnpläne 
dieses Programms aufzuzeigen. Lassen 
Sie sich Zeit bei einer unglaublich 
spannenden Spielsitzung, die selbst 
nach Stunden noch mit unverhofften 
Gimmicks zu verblüffen weiß. 

Las Vegas live: Die Regeln 

Die Regeln dieser Simulation sind 
denkbar einfach: Sie bekommen einen 


Grundbetrag zur freien Verfügung und 
haben die Möglichkeit, mit Glück und 
Geschick ein Vielfaches dieses Betra¬ 
ges zu gewinnen. Pro Spiel runde wer¬ 
den vier Walzen in Gang gebracht. 
Diese stoppen automatisch. Auf jeder 
Walze sind verschiedene Symbole an¬ 
gebracht, die nur in den richtigen Kom¬ 
binationen Gewinne einbringen. 

Dabei gibt es bei den meisten Kombi¬ 
nationen zu Beginn nur geringe Beträ¬ 
ge zu gewinnen. Im Laufe der Zeit aber 
führen die unterschiedlichsten Bonus¬ 
leisten, die von den Gewinnkombina¬ 
tionen ausgelöst werden, zu erhebli¬ 


chem Geldregen. Lassen Sie sich über¬ 
raschen. Bei größeren Gewinnen droht 
Ihr Automat in einem bunten Tohuwa¬ 
bohu zu zerbrechen. Was da an grafi¬ 
schem Zauber über Sie hereinbricht, 
soll hier aus Spannungsgründen ver¬ 
schwiegen werden. Es lohnt sich ein¬ 
fach, den Automaten in all seinen Ei¬ 
genarten zu erforschen, und wenn Sie 
dabei zufällig in ein fantastisches Mini- 
Abenteuer gelangen sollten, dann wun¬ 
dern Sie sich nicht. 

Gestartet wird jede Spielrunde mit der 
Enter-Taste. Mit ’l’, ’2\ ’3’ und ’4' 
lassen sich die entsprechenden Walzen 
starten beziehungsweise stoppen. Die 
Pfeiltasten dienen zur Manipulation 
des Spieleinsatzes, mehr wird nicht 
verraten. 

Wir haben uns entschlossen, dieses 
Programm als Sonderbonus auf die 
DATABOX zu kopieren. Aufgrund 
der Länge und des sehr detaillierten 
Bildschirms hätte der Umfang des Li- 
stings Dimensionen erreicht, die nicht 
mehr tragbar gewesen wären. 

(Ernst Klasarek/jf) 
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Mit Köpfchen 
Schläger 
und Kanonen 


Eine Breakout-Variante 
der Superlative 


Seitdem das Spiel Arkanoid 
vor ein paar Jahren her¬ 
aus kani, gab es hin und 
wieder Variationen von 
diesem Klassiker. Doch 
diesmal hat sich ein findi¬ 
ger Programmierer etwas 
Besonderes ausgedacht. 
Das Spielprinzip ist gleich¬ 
geblieben , aber ansonsten 
hat sich einiges verändert. 
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CPC-Anwendungen 

Die bewährten und praxiserprobten CPC-Anwendungsprogramme aus dem 
DMV-Verlag bringen Ihre CPC-Hardware richtig in Schwung: Sie erzielen 
hervorragende Ergebnisse in kürzester Zeit 


ConText CPC 

Professionelle Textverarbeitung 

für alle CPC 

Lassen Sie Ihren CPC nicht verstauben! Mit ConText 
CPC können Sie ein Anwendungsprogramm erwerben, 
das für Textverarbeitung eine überzeugende Leistung 
bei einfacher Bedienung bietet. Die ausführliche deut¬ 
sche Anleitung macht auch Computerlaien nach kürze¬ 
ster Zeit eine Textverarbeitung per Computer möglich! 


Mit ConText CPC macht das Schreiben richtig Spaß: 

• Einfügen, Fließtext, Blockformatierung und Kopieren auf 
Tastendruck • 25 KByte Textspeicher, ausreichend für min¬ 
destens fünf DIN-A4-Seiten • Mehrspaltige Texterstellung 
und Kopieren für besondere Aufgaben • Textblöcke von 
Diskette oder Kassette jederzeit im Text zu plazieren 

• Drucken im Hintergrund, während Sie weiter an Ihren 
Texten arbeiten • Echtbild-Darstellung der Schriftarten 
»Vergrößert« und »Unterstrichen« • In das Programm Con¬ 
Text CPC integrierter Taschenrechner und Kalender 

• Variable Druckeranpassung mit Einstellmöglichkeit in 
Tabellenform 

ConText CPC 

Hervorragend in Preis und Leistung dm 59,- * 


Turbo-DATA-CPC 

Volldampf in der Dateiverwaltung 


Brauchen Sie ein neues Adreßbuch oder Telefonver¬ 
zeichnis? Müssen Sie Ihre Sammlungen von Briefmar¬ 
ken, Schallplatten, Dias oder anderen Schätzen sortie¬ 
ren? Alles kein Problem mit Turbo-DATA-CPC, der uni¬ 
versellen Dateiverwaltung für alle CPC mit Disketten¬ 
laufwerk, mit der Sie Überblick und Ordnung in Ihre 
Daten bringen. 

Datenverwaltung komplett mit Turbo-DATA-CPC: 

• Universell durch veränderbare Ein- und Ausgabemasken 

• Blitzschnelle Suchfunktionen durch Indexfelder 

• Dateikapazität bis maximal 80 verschiedene Felder 

• Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

• Besonders schnelle und umfangreiche Sortierfunktion 

• Eigene Formatierroutine mit extrem hoher Kapazität 

• Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

• Komplette Druckroutinen, auch für Etikettendruck 

Turbo-DATA-CPC 

Immer die richtige Wahl dm 69,- * 


CopyShop 

Das universelle Hardcopy-Programm 

für alle CPC 

Wollen Sie Ihre traumhaft schöne Fraktalgrafik im 
Freundeskreis zeigen, oder brauchen Sie zu Ihrem 
selbstgeschriebenen Programm einen Ausdruck? 

Mit CopyShop bringen Sie alle Bildschirmansichten zu 
Papier, auch mit den exotischsten Druckern. Ein Show- 
Modus zeigt Ihnen die Hardcopy vor dem endgültigen 
Ausdruck auf dem Bildschirm! 


Mit CopyShop Hardcopies immer und überall: 

• Vier Formate in allen drei CPC-Modi mit automatischer 
Erkennung • In das Programm integrierter Grafikeditor mit 
Füllfunktion • 32 Farbraster wählbar über komfortable Pull- 
down-Menüs • Beliebige Ausschnittsvergrößerungen mit 
Invertierungsfunktion • Drucker-Anpaßmenü für alle Ep¬ 
son- und Seikosha-Drucker • Anpassung auch an gedrehte 
Bitbild-Bytes, z.B. an NEC P2 • Freezer auch für Hard¬ 
copies aus laufenden Basic-Programmen • selbstrelozie- 
rende Hardcopy-Routinen für eigene Programme 

CopyShop 

Das ultimative Hardcopy-Programm dm 49,- * 


CPC Special Offer 2 

Vier Programme im Paket-Sonderpreis 

Ob Bildschirmgrafiken, Sprite-Animation, Disketten¬ 
monitor oder eine Diskettenverwaltung - im Special 
Offer 2 für alle CPC ist für jeden etwas dabei: 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung mit hohem Bedienungskomfort und integriertem 
Diskottenmanager. Verwaltung, Archivierung. Katalogisierung Ihrer Disketten und Aus¬ 
druck der Daten - mit Disksort-Star kein Problem. 


DESIGNER-STAR 

Grafikprogramm zum komfortablen Erstellen von Bildschirmgrafiken. Zur Bedienung ist 
ein Joystick oder eine Maus nicht notwendig. Auf Tastendruck werden Sie mit Hilfsmenüs 
durch das Programm geführt. 


CREATOR-STAR 

Erstellen Sie eigene Trickfilme auf Ihrem CPC - mit einem Kulissen- und Sprite-Designer 
sowie beliebigen Laufschriften. In einer eigenen Programmiersprache mit Editor und 
Compiler können Sprites verbunden und Kulissen übereinandergelegt werden. 


STAR-MON 

Professionelle CPC-Programmierung mit Assembler, Disassembler und Monitor. Das 
System besitzt einen eigenen Dis ketten monitor und Editor, eine Trace-Funktion, kann 
Breakpoints setzen und Bankswitching vornehmen. 

CPC Special Offer 2 

Für CPC-Profis dm 59,- * 













CPC-Basic 

Mit dem Basic-Lehrbuch und dem FAst-BAsic-COMpiler aus dem DMV-Ver- 
lag nutzen Sie Ihr spezielles Schneider-Basic optimal aus! 


FAst BAsic COMpiler 

Der Turbo-Antrieb für Ihre 
Basic-Programme! 


Haben Sie sich schon immer gewünscht, daß Ihre Ba¬ 
sic-Programme auf dem CPC schneller laufen? Mit dem 
FABACOM-Basic-Compiler wird dies zur Wirklichkeit: 
Compilierte Basic-Programme brauchen weniger Platz 
und laufen schneller ab. 

FABACOM - 

schnell durch Compilierung dm 49,-* 


CPC-Basic-Lehrbuch 

Nutzen Sie die vollen Möglichkeiten der leistungsstar¬ 
ken CPC-Hardware durch das spezielle Schneider- 
Basic! 

Um alle hardwaremäßigen Möglichkeiten der CPC-Compu- 
ter nutzen zu können, wurde von Amstrad/Schneider extra 
für diesen Computertyp ein eigener Basic-Dialekt geschaf¬ 
fen: das Schneider-CPC-Basic. Nur mit diesen speziellen 
Befehlen und Optionen können Sie den Leistungsumfang 
Ihres CPC voll ausschöpfen. 


Das Lehrbuch: 

Auf 150 Seiten wird Ihnen im handlichen Ringordner nicht nur der komplette Befehlsum¬ 
fang des Schneider-Basic dokumentiert, mit dem Index und einer Hervorhebung der 
Schlüsselwörter können Sie auch bequem nachschlagen und Ihre Kenntnisse auffri¬ 
schen. 

Neben den Erklärungen der Schneider-BASIC-Befehle in gedruckter Form vermittelt 
Ihnen das Lehrbuch durch Beschreibung die korrekte Verwendung. Mit Beispielen und 
Listings zur praktischen Arbeit am Computer wird danach der Einsatz in der Programmie¬ 
rung demonstriert. 

Die zwölf Kapitel des Lehrbuches behandeln den gesamten Stoff systematisch und nach 
lerntechnischen Gesichtspunkten in Form eines Kurses. Durch Fragen am Ende jedes 
Kapitels können Sie Ihren Lernfortschritt überprüfen und kontrollieren. 

Die Software: 

Auf einer Kassette erhalten Sie alle Programme und Listings des Lehrbuches, um die 
beschriebenen Techniken nachvollziehen zu können. Dazu noch eine Reihe von Spielen 
zu Ihrem Vergnügen und Programme, die die Möglichkeiten Ihres CPC demonstrieren. 

Die zweite Kassette enthält die Lernziel-Kontrolltests für jedes der zwölf Kapitel: Sie 
können dadurch direkt im Dialog mit dem Computer Ihre Lernerfolge kontrollieren. 


DM 29,-* 


Schnelle Programme durch FABACOM: 

• Voller Sprachumfang von CPC-Basic 1.1 (664/6128) 

• Die compilierten Programme sind auf jedem 
CPC lauffähig 

• Separate Compilierung von Programm¬ 
teilen für Nachladeprogramme 

• Fast alle Befehle von CPC-Basic 1.1 auch 
für CPC 464 

• Unterstützung von Integer- und Fließkom¬ 
ma-Arithmetik 

• Kompatibel zur Vortex-Peripherie inklusive 
der RAM-Disk 

• Alle CPM-Dienstprogramme können wei¬ 
terhin genutzt werden 

• Ausführliche deutsche Bedienungsanlei¬ 
tung und Beispielprogramme 




Schneider BASIC 

Lehrbuch Teil 2 Soft 256 

Schneider 

»epcife 






CPC-BASIC-Lehrbuch - 
Ihr Trainer für CPC-Basic 
Kassette 




















Das Software-Experiment 

Spielend den CPC beherrschen lernen 


Nehmen Sie teil am Abenteuer "Computer"! In zehn 
lebendig und leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simulation und künst¬ 
lichen Intelligenz erarbeitet der Autor mit Ihnen zusam¬ 
men insgesamt 17 interessante Programme, die Sie auf 
Diskette erhalten. 


Das umfangreiche, 180seitige Handbuch vermittelt 
Ihnen auf anschauliche und unterhaltsame Weise, wie 
aus Algorithmen Datenstrukturen und letztendlich 
Software entstehen: von der Idee zum Programm - der 
ideale Kursus zum Einstieg in das Computerwissen, für 
Hobby und Schuluntericht. Sehen Sie selbst, zu wel¬ 
chen phantastischen Grafiken und verblüffenden Intel¬ 
ligenzleistungen der CPC bei raffinierter Programmie¬ 
rung fähig ist! 


Der Computer 
als Stratege 

Ein raffiniertes 
System von 
Spielzugbewer 
tungen macht 
den CPC zu ei¬ 
nem fast un¬ 
schlagbaren 
Gegner im Go- 
bang-Spiel, der 
Ihnen anfangs 
saftige Niederlagen bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das müssen Sie 
selbst herausfinden. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz": 
Das Programm "Minischach" ist lernfähig und wird mit jeder 
Partie ein bißchen besser. 



Wordmaster 

Sie raten ein Wort, das sich der Computer ausgedacht hat. 
Dann rät der Rechner ein Wort, das Sie sich ausgedacht 
haben. Wer braucht weniger Versuche? Sie werden sich 
wundern... 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafi- 
ken und erarbeiten einen kompletten Fraktalgenerator zur 
Erzeugung von "Apfelmänn- 
chen"-Bildern. 

Das Spiel des Lebens 

Nach natürlichen Prinzipien des Wachstums erzeugt der 
Computer phantastische, kristallförmige Farbstrukturen. 
Ändern Sie die Regeln und Voraussetzungen, und sehen 
Sie. was für neue, noch nie dagewesene Formen sich 
ergeben. 

Mit roher 

Rechengewalt h 

Mit dem "Brüte- H 
Force'-Algorith- 
mus darf der I 
CPC so richtig I 
loslegen und I 
spielt mit roher I 
Rechengewalt in I 
dem afrikani- H 
sehen Strategie- I 
spiel "Kalaha" al- H 
le Gegner an die H 
Wand - oder kön¬ 
nen Sie ihn trotz¬ 
dem schlagen? 


Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage 
eines Entwicklungshelfers, der eine Hungersnot abzuwen¬ 
den versucht. Aber Ihre Mittel sind begrenzt... 
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Das Ökologie- 
Experiment 

Der Computer 
zeigt Ihnen in 
animierter Farb¬ 
grafik einen si¬ 
mulierten Le¬ 
bensraum mit 
Weideland, 
Schafen und 
Wölfen. Erfor¬ 
schen Sie die 
ökologischen Gesetzmäßigkeiten, und schaffen Sie ein 
stabiles, natürliches Gleichgewicht. 

Word ketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten- 
Rätsel. Oder er erfindet neue Rätsel - ganz wie Sie wollen. 
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Pascal läßt grü¬ 
ßen 

Ein erstaunli¬ 
ches Programm 
enthüllt verbor¬ 
gene Strukturen 
im sogenannten 
"Pascalschen 
Dreieck". Die 
grafische Dar¬ 
stellung ergibt 
traumhaft schö¬ 
ne und farbige 
Musterbilder. 



Das Software-Experiment 

Siebzehn verschiedene, lauffähige Programme 
180 Seiten Anleitung und Erklärung 
Diskette nur dm 39,-* 




















CPC-Spiele 

Zu unglaublichen Preisen! 



Know CPC 

Interessantes Frage- und Antwortspiel für die 
ganze Familie 


Faszination in 3D 

Zwei Super-Aktion-Spiele inklusive 
3D-Brille 


3D-LightCycle 

Das bekannte und beliebte 
TRON-Spiel für zwei Personen 
jetzt wie im Film! Erleben Sie die¬ 
ses spannende und abwechs¬ 
lungsreiche Aktionsspiel jetzt in 
einer neuen Dimension. Verblüf¬ 
fende und noch nie dagewesene 
3D-Effekte zusammen mit einem 
professionellen Sound lassen 
Sie in eine völlig neue CPC-Welt 
versinken. Diesen Super-Hit 
man live gesehen haben. 


Das beste Labyrinthspiel jetzt in 
Super-3D-Qualität. Auf der Su¬ 
che nach Hinweisen zum Passwort, das den 
mächtigen Zentralcomputer lahmlegen kann, lau¬ 
ern tausend Gefahren auf Sie. Räumlich perfekte 
3D-Darstejlung, extrem schneller Grafikaufbau 
und viele Überraschungen garantieren eine völlig 
neue Art von Spielvergnügen. 

Für alle CPC 464,664,6128 mit Farbmonitor. Das Spiel 3D-LightCycle 
kann in 2D-Darstellurig auch auf Grünmonitor gespielt werden. 


DM 29,-* 


DM 39,-* 


StarTest 

Aktion-Adventure für alle CPCs DM 19,-* 


CYRUS II Schach 

Das bewährte Schachprogramm mit 3D-Display, einstell¬ 
barer Spielstärke und deutscher Bedienungsanleitung 

Kassette dm 10,-* 


Fantastic Four 

Vier Superprogramme zum Minipreis 

Cockaigne - Weltraum-Aktion 
Terranaut I - Science-Fiction 
Fruits - Geschicklichkeit 

Terranaut II - Textadventure dm 29,-* 


Special Otters III 

Neun interessante Spiele für alle CPCs 
2 Disketten, dm 39,-* 


Game Box 3 

Für jeden das Richtige - vier ausgesuchte 
Top-Spiele für CPC 


Alphajet - Weltraum- 
Aktionsspiel mit außer¬ 
gewöhnlicher Grafik und 
tollen Effekten 

Telefomania - 

Interessantes Science- 
Fiction-Spiel mit völlig 
neuer Spielidee 

Kampf den Insekten - 

Erlebnisreiches 
Geschicklichkeitsspiel 
mit Überraschungen 


Funbouncer- schnelles 
und farbenfrohes 
Aktions-Spiel mit 
eigenem Bild- 
Konstruktions-Editor 


DM 29,-* 






































CPC-Einzelhefte 1989 


i 





CPC-Sammelpack 

Solange unser Vorrat reicht, können Sie mit Einzelhef¬ 
ten und günstigen Paket-Angeboten Ihre Sammlung 
der Amstrad International vervollständigen - 
mit Wissen, das heute noch genauso wertvoll ist wie 
damals. 


Einzelhefte 1989 


pro Ausgabe 


dm 6,50 


Sammelpack 1988 


12 Ausgaben PC Amstrad International 
1 /88 bis 11 /88 und 1 /89 dm 39,-* 


Sammelpack 1987 


12 Ausgaben PC Amstrad International 
1/87 bis 12/87 dm 39,-* 

















Eine GHHp|PW!^W£@fge"frr unserem 
Kleinanreigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 


Und so wird's gemacht: 

Kreuzen Sie bitte an, in welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
in das vorgezeichnete Feld, daß jeder Buchsta¬ 
be. jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige. 

Bitte beachten Sie! 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 



über 


CPC und PCW Joyce 

sammeln Sie mit 

• Einzelheften 

• Sonderheften 

• DATABOX 


Klelnanzeigen-Markt 1 

Private Anzeigen: Nur DM 5, - je angefangene Zeile. 

Geschäftliche Empfehlungen: DM 8,- je angefangene Zeile, zzgl. gesetzlicher Mehrwertsteuer. 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren PC Amstrad für 
I private Zwecke C gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text: (Bitte deutlich in Druckbuchstaben schreiben!) 
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□ Die Anzeige soll als Chiffre-Anzeige erscheinen (nur bei Privat-Anzeige). Chiffre-Gebühr 10,- DM inkl. MwSt zzgl. zum Anzeigenpreis. 
In dieser Rubrik: 

□ Biete an □ Suche □ Tausch □ Stellenmarkt/freie Mitarbeit 

□ Hardware Z Hardware □ Geschäftsverbindungen 

□ Software Z Software □ Verschiedenes 



Mehr Erfolg mit 
CPC 464 664 6128 

r,„to;PoiOTl 

• .-wt*r«».rn<ui.H*»' 


DOS-Tools 6, GW-Basc-Tooltax-DOS-Funktioran 
DOS-T 00 I 9 7, GW-BasIc-ToolBox-Harcules-Grafik 

PCpur Software I, MulliFont Plus 
PCpur Software la, Zusatzlsm MultiFon: Plus 
PCpur Software II, ASCIlTige. 1 , Programmeci;» 
PCpur Software III, Festplallen-Optimlerer 
toolbox Spezial II, PASCOMP 
toolbox Spezial IV, CALC 
toolbox Spezial V, STRUKTO 
toolbox Spezial VII, dt. Silbentrennung 
toolbox Spezial IX, HPGL-Plolter 
toolbox Spezial XI, MAP MARK A RELEASE 
toolbox Spezial Xlll, Trickkiste Vol.l 
toolbox Spezial XIV, Trickkiste Vol.2 
toolbox Spezial XV, Fitting & Lin.-Glei 
toolbox Spezial XVI, nat.-sprachl. Schnittst, 
toolbox Spezial XVII, EAAS Speicher Software 
toolbox Spezial XVIII, Alkane-Klassifzierurg 
MAUSALL Plus 
C-Funktionssammlung 
GEMInterface PC, Turbo Pascal 4 + 5.0 
GEMInterface PC, TopSpeed Modula-2 
F>C-Splele-Sampler 
KNOW-PC, Unterhaltungssplel 
Erganzungsfragen zu KNOW-PC 
Fraktal-Generator 3D, MS-DOS 


69,- 

69,- 

89,- 

39,- 

69,- 

69,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

99,- 

198,- 

198,- 

49,- 

49,- 

29,- 

69,- 


Gesamtbetrag: 







für 

CPC und PCW Joyce 


erwerben Sie im 

Bestellservice 

preisgünstig 

und 

schnell 


CPC-Bestellservice 


3"-Diskette 

Kassette 

DM 

□ 

207 

- 

ConText CPC, Textverarbeitung 

59,- 

□ 

202 

- 

CopyShop, Hardcopy-Programm 49, - 

□ 

214 

- 

Turbo Data CPC 

69,- 

□ 

205 

- 

Special Öfter 2 

59,- 

□ 

213 

- 

Software-Experiment 

39,- 

□ 

209 

- 

FaBaCom, Basic-Compiler 

49,- 


- 

□ 481 

CPC-Basic-Trainer 

29,- 

□ 

104 

- 

Startest 

19,- 


- 

□ 130 

Cyrus Il-Schach 

10 ,- 

□ 

1011 

- 

Fantastic Four, Spielesammlung 29,- 

□ 

107 

- 

Special Offer 3, Spielesammlung39, - 

□ 

1369 

- 

Faszination 3D 

39,- 

□ 

1012 

- 

Game-Box III 

29,- 

□ 

106 

- 

Know CPC 

29,- 

□ 

211 

- 

Fraktal Generator 3D CPC 

49,- 


+ Porto/Verpackung 
(Inland 4,- DM, Ausland 6, - DM) 


Joyce-BesteHservice 


3“-Diskette 

Joyce-Software 

DM 

□ 

215 

Volume 1, Charakter-Designer 

49,- 

□ 

216 

Volume 2, Dateiverwaltung 

49,- 

□ 

217 

Volume 3, GSXplot 

59,- 

C 

219 

Volume 4, Bild-Editor 

49,- 

□ 

220 

Volume 5, Datenbank 

69,- 

□ 

221 

Volume 6, Tabellenkalkulation 

59,- 

□ 

222 

Volume 7, Grafische Benutzeroberfläche 69, - 



Joyce-Sonderheft-Pakete 


□ 

3050 

Sonderheft 2 + DATABOX, 2 Disketten 3" 

29,- 

□ 

3051 

Sonderheft 3 + DATABOX, 2 Disketten 3“ 

29,- 

□ 

3052 

Sonderheft 4 + DATABOX, 2 Disketten 3“ 

29,- 



Joyce-Bücher 


□ 

406 

Joyce - mehr als ein Textsystem 
+ DATABOX, Diskette 3“ 

49,- 

□ 

401 

Praktische Textverarbeitung mit Joyce 
+ DATABOX, Diskette 3“ 

49,- 


= DM 


DM Gesamtbetrag: 

















































































Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


Name 


Straße/Postfach 


PLZ/ORT 

i Den Betrag bezahle ich mit dem belgetügten Verrechnungsscheck. 


I Darum Unterschritt (bei Minderjährigen dos gesetzlichen Vertreters) 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


I «- Chancen nutzet 

Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 




PC-Amstrad-Leser sind immer 
top-informiert. Daher sollte Ihnen 
kein Heft oder Sonderheft in Ihrer 
Sammlung fehlen. Das Eintippen 
von Listings und Programmen er¬ 
sparen Sie sich durch unseren 
günstigen DATABOX-Service. Im¬ 
mer gut beraten sind Sie mit PC 
Amstrad 

• Sonderheften 

• DATABOXEN 






I CPC-/PCW-Joyce-Bestellservice 

Ü3, Ich mache vor Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Antwortkarte 


• Sammelpacks 


CPC 

Solange unser Vorr 
ten und günstigen 
der Amstrad Intern? 


Zur Erinnerung: 

Meine Hefte, Sonderhefte und DATA¬ 
BOXEN wurden bestellt am 


Bitte 

ausreichend 

frankieren 


stellen 


Die Power-Software von PC Am¬ 
strad für CPC und PCW Joyce ist 
unter Kennern bereits ein Begriff, 
und unser Sortiment wird Monat 
für Monat gepflegt und erweitert. 
Und vergessen Sie nicht: Soft¬ 
ware von PC Amstrad ist auch ein 
Geschenk, das ankommt. Nutzen 
auch Sie die Vorteile von PC- 
Amstrad-Software 


Name 


Straße/Postfach 


PLZ/ORT 


DMV-Verlag 
PC International 
Postfach 250 


• preisgünstig 

• bewährt 

• praxisgetestet 


D Den Betrag bezahle Ich mll dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD), 


3440 Eschwege 


Zur Erinnerung: 

Meine CPC- und PCW-Joyce-Soft- 
ware wurde bestellt am 


■ Datum Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 




































































Zum Sammeln 
unentbehrlich 


1990 


1990 


Die 

DMV-Sammelordner 


Sonderhefte • Sammelordner • Demonstrationen 


Ausgabe 


DOS 


igabe 

EXTRA 


DATABOX 


2 Stk. 5 1/4“-Disk 


1 Stk. 3 1/2“-Disk 


DM 18,- 

DM 35,- 

DM 35,- 

□ 356 Nr. 3 

□ 357 

□ 358 

□ 381 Nr. 4 

□ 3811 

□ 3812 

□ 382 Nr. 5 

□ 3813 

□ 3814 

□ 383 Nr. 6 

□ 3815 

□ 3816 

□ 384 Nr. 7 

□ 3817 

□ 3818 

C 385 Nr. 8 

□ 3819 

□ 3820 

C 386 Nr. 9 

□ 3821 

□ 3822 

□ 387 Nr. 10 

□ 3823 

□ 3824 

Pascal 

Sonderdruck 

□ 346 

□ 347 

DMV-Computer- 
wissen Band 1 

□ 3512 

□ 3513 


DOS- 

5 1/4“-Diskette 

3 1/2“-Diskette 

Taschenbücher 

DM 24, - 

DM 24, - 

BAND 1 

□ 60501 

□ 60502 

BAND 3 

□ 60521 

□ 60522 

BAND 4 

□ 60531 

□ 60532 


Best.-Nr. 



DM 

□ 60500 

□ 60510 

□ 60520 

□ 60530 

□ 402 

□ 403 

□ 345 

□ 3511 

DOS-Taschenbuch Band 1 29,80 

DOS-Taschenbuch Band 2 29,80 

DOS-Taschenbuch Band 3 29,80 

DOS-Taschenbuch Band 4 29,80 

Die Basic2-Toolbox 49, - 

Die Basic2-Toolbox, 51/4“ -Diskette zum Buch 29, - 
PASCAL Sonderdruck 25, - 

DMV-Computer-Wissen, Band 1, Basic-Toolbox 18, - 

Sammelordner 

2 Stk. 15,80 

C 530 DOS 
_ 534 toolbox 
□ 536 DOS TEST 

□ 531 PC International 

□ 535 PCpur 

□ 537 AMIGA DOS 

Zwischensumme + Porto und Verpackung 

Inland 4,- DM. Ausland 6.- DM) 






Demodisketten jeweils DM 5,- 

toolbox-PD-Service jeweils DM 10,- 


□ 001 Fraktal 3D + MaskEdlt 

□ 003 ERGO 3.0 

5 1/4* 
L 236 

3 1/2* 

PD-Moduls-CofTpler, MS-DOS 

□ OOS ConText PRO 

- 

297 

PO-ltoJula-Compilef, Alan ST 

D 007 3D-Draw 1.0 

- 

2 298 

PD-ModuWJompfer, Amtga 

L 008 DMV-Show-Manager 

12662 

J2653 

PO-Protg-Compller, MS-DOS 

II 009 Navigator 4.0 

L 2664 

.2656 

SSOL-OatanbankaWrage 


C265$ 

- 

Qukk-Baslc-Übwgscomp-Iei 


Gesamtbetrag: DM 


PC- 

Software 

vom 

DMV 

Versandservice 

• leistungsstark 

• praxisbewährt 

• preisbewußt 



Kleinanzeige 

Eine Gelegenheitsanzeige in unserem 
Kleinanzeigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 

Und so wird’s gemacht: 

Kreuzen Sie bitte an, in welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
In das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige. 

Bitte beachten Sie! 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


PC-Software 


5V4“ 

3 Vs“ 

DM 

2282 

C 

2281 

□ 

ConText EASY, (MS-DOS) 

99,- 

2407 

L 

2408 

ü 

ConText PRO, (MS-DOS) 

199,- 

2409 

LI 

2410 

ü 

Upgrade - ConText PRO 

129,- 

2415 

LI 

2416 

U 

ConText-ADREVA, Adreßverwaltung 

49,- 

2419 

i : 

2420 

II 

ConText-Zelchenedltor 

99,- 

2421 

u 

2422 

LI 

ConText-Rechtschrelbhllfe 

69,- 

2650 

u 

2651 

II 

DMV-Power-Pack 

349,- 

2615 

□ 

2616 

n 

H.A.I.-Tech, (MS-DOS) 

199,- 

2622 

□ 

2521 

u 

ERGO 3.0, DOS-Benutzeroberfläche 

199,- 

229 

□ 

235 

D 

Hyperkey, Version 4.0, (MS-DOS) 

99,- 

256 

u 

257 

LI 

VlrusDoktor, (MS-DOS) 

99,- 

2702 

u 

2703 

ü 

DMV-Show-Manager 

199,- 

238 

II 

239 

□ 

MaskEdlt Plus mil einem Treiber 

99.- 

2613 

L.I 

2614 

D 

MaskEdlt Plus, Rakel mil zwei Treibern 
MaskEdlt Plus, Pake! mit drei Treibern 

149,- 

2621 

□ 

2622 

J 

199,- 

Turbo 

Turbo C Top-Speed Turbo 

Quick 

Pascal 3/4/5 

Microsoft C Modula-2 Basic 

Basic 

0 2632 

C 

2633 □ 2634 G 2635 

D2636 

227 


233 

□ 

BCI DlsAsm/186, (MS-DOS) 

199,- 

2402 


2401 

C 

TopSpeed Modula-2, Compiler 

348,- 

2404 


2403 

L 

TopSpeed Modula-2, TechKit 

248,- 

2406 


2405 

ü 

TopSpeed Modula-2, Debugger 

248,- 

2412 

L 

2411 

L 

Paket Compiler + Debugger 

555,- 

2413 

L 

2412 

ü 

TopSpeed Modula-2, OS/2-Version 

698,- 

6001 

□ 

6002 

LI 

DOS-Tools 1, RSM-Manager 

69,- 

6007 

L 

6008 

II 

DOS-Tools 4, 3D-Draw, Version 1.0 

3D-Draw Professional 

99,- 

6017 

L 

6018 

IJ 

199,- 

6021 

U 

6022 

IJ 

Upgrade von 3D-Draw aul Professional 

109,- 

6019 

L 

6020 

U 

Navigator 4.0 

69,- 

6009 

□ 

6010 

□ 

DOS-Tools 5, GW-Sasic-Tootbox-ObeHläche 

69,- 


5V4“ 

3 Vz“ 


6011 

C 

6012 

C 

DOS-Tools 6, GW-aasic-Toolbox-OOS-Funkliwen 

6013 

G 

6014 

C 

DOS-Tools 7, GW-Basic-Toolbox-Harcules-Gralik 

20500 C 

20501 

0 

PCpur Software 1, MultiFont Plus 

20502 C 

20503 

□ 

PCpur Software la, Zusatzlonls MultiFont Plus 

20504 L 

20505 

□ 

PCpur Software II, ASCH-Tger, Prograrmdilw 

20506 

G 

20507 

□ 

PCpur Software III, Festplatten-Optimierer 

2804 

□ 

2805 

□ 

toolbox Spezial II, PASCOMP 

2808 

□ 

2809 

u 

toolbox Spezial IV, CALC 

2811 

□ 

2812 

□ 

toolbox Spezial V, STRUKTO 

2815 

□ 

2816 

□ 

toolbox Spezial VII, dt. Silbentrennung 

2819 

□ 

2820 

□ 

toolbox Spezial IX, HPGL-Plotter 

2823 

□ 

2824 

□ 

toolbox Spezial XI, MAP, MARK & RELEASE 

2827 

□ 

2828 

□ 

toolbox Spezial XIII, Trickkiste Vol.l 

2829 

□ 

2830 

ü 

toolbox Spezial XIV, Trickkiste Vol.2 

2831 

□ 

2832 

n 

toolbox Spezial XV, Fitting 8 Lin.-Glei. 

2833 

□ 

2834 

□ 

toolbox Spezial XVI, nat.-sprachl. Schnittst. 

2835 

□ 

2836 

□ 

toolbox Spezial XVII, EMS-SfiBöier-SoHware 

2837 

□ 

2838 

□ 

toolbox Spezial XVIII, AltefieKlassäiaeiung 

2361 

□ 

2362 

c 

MAUSALL Plus 

246 

□ 

247 

c 

C-Funktlon9sammlung 

2952 

G 



GEMInterface PC, Turbo Pascal 4 + 5.0 

2954 




GEMInterface PC, TopSpeed Modula-2 

1371 

C 

1372 

□ 

PC-Splele-Sampler 

161 

D 

162 

□ 

KNOW-PC, Unterhaltungsspiel 

1293 

□ 

1294 

0 

Ergänzungsfragen zu KNOW-PC 

248 

□ 

249 

□ 

Fraktal-Generator 3D, MS-DOS 


DM 


69,- 

69,- 

69,- 

39,- 

69,- 

69,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

35,- 

99,- 

198,- 

198 ,- 

49,- 

49,- 

29,- 

69,- 


+ Porto/Verpackung 

(Inland 4,- DM. Ausland 6,- DM) _ DM 


Gesamtbetrag: 


DM 


__ Kleinanzefgen-Markt _ 

Private Anzeigen: Nur DM 5,- je angefangene Zeile. 

Geschäftliche Empfehlungen: DM 8,- je angefangene Zeile, zzgl. gesetzlicher Mehrwertsteuer, 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren PC Amstrad für 

□ private Zwecke □ gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das ist der Text: (Bitte deutlich in Druckbuchstaben schreiben!) 
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1 li 


Lj Die Anzeige soll als Chiffre-Anzeige erscheinen (nur bei Privat-Anzeige). Chiffre-Gebühr 10,- DM inkl MwSt. zzgl zum Anzeigenpreis. 
In dieser Rubrik: 

L Biete an □ Suche □ Tausch □ Stellenmarkt/freie Mitarbeit 
L_ Hardware □ Hardware □ Geschäftsverbindungen 

Software C Software □ Verschiedenes 








































































































PC- 

Sonderhefte 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 
PLZ/ORT 

C Den Betrag bezahle Ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 

Dalum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


PC- 

Software 


Bitte 

ausreichend 

frankieren 


Ja, 


Ich mache von Ihrem Angebot Gebrauch und bestelle die umseilig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Antwortkarte 


Name 


Straße/Postfach 


PLZ/ORT 

I □ Den Betrag bezahle ich mil dem beigefügten Verrechnungsscheck. 

I □ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
I (nur Innerhalb der BRD). 


Datum Unterschritt (bei Minderjahngen dos gesetzlichen Vertreters) 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


Name 


Straße/Postfach 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 


PLZ/ORT 

□ Den Betrag bezahle Ich mit dem beigefügten Verrechnungsscheck. 


Da,um Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 



3440 Eschwege 



DOS-Taschenbücher und DOS- 
EXTRA-Sonderhefte sind eine zu¬ 
verlässige Informationsquelle für 
jeden PC-Besitzer. Nutzen auch 
Sie dieses Wissen, und vertiefen 
Sie es mit den dazu angebotenen 
Programmen aus dem DATA- 
BOX-Service. Den PC beherr¬ 
schen mit 

• DOS-EXTRA-Sonderheften 

• DOS-Taschenbüchern 

• DOS-DATABOX-Service 

Zur Erinnerung: 

Meine DOS-Sonderhefte, DOS- 
Taschenbücher, DOS-DATABOX 
wurden bestellt am 



PC-Software vom DMV-Verlag ist 
unter Kennern bereits ein Begriff 
und auch ein gutes Angebot für 
Sie, Ihren PC mit starken und an¬ 
wendergerechten Applikationen 
auszustatten. Vom der Textverar¬ 
beitung bis zum Programmiersy¬ 
stem, beim DMV-Versandservice 
kaufen Sie günstig ein. Den PC 
konsequent nutzen mit PC-Soft¬ 
ware aus dem DMV-Versand¬ 
service 

• PC-Anwendungen 

• PC-Applikatlonen 

• PC-Entwicklungssysteme 

Zur Erinnerung: 

Meine PC-Software wurde bestellt am 



Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege- 
ben am 
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FLUGSIMULATOR 

GANGSTER 

THE DESIGNER 

ROLLENSPIELADVCNTURE 
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Soundprogr.i-nmlorung 

lolchtgorraoni 


Spiele: 

Cm*.y Stomp u 
Tooms Manage 


CPC-Sonderhefte 


CPC-Sonderhefte 

Randvoll mit nützlichen Tips und Tricks für Ihren CPC- 
Computer, sollten die Sonderhefte der PC Amstrad 
International in keiner Sammlung fehlen. Ob komplett 
als Kraftpaket oder als Kombipack mit der DATABOX - 
jetzt können Sie kompaktes CPC-Wissen so günstig 
wie noch nie erwerben. 

CPC-Sonderheft-Kraftpaket 

Fünf CPC-Sonderhefte 

3, 5, 6, 7, 8 dm 35,-* 

CPC-Sonderheft-Kombipack 

Ein Sonderheft (3, 5, 6, 7, oder 8) 

+ DATABOX dm 29,-* 

DMV-Sammelordner 

2 Stück dm 15,80* 






































Joyce-Programmsammlungen 


GCPM - die grafische 
Benutzeroberfläche für den 
Joyce 

Schnell, bequem und komfortabel 

Beneiden Sie nicht länger die PC-Besitzer! Mit GCPM 
können Sie nun auch für den Joyqe eine komfortable 
grafische Benutzeroberfläche inklusive Mausbedie¬ 
nung, Uhr, Taschenrechner, Schnittstellensteuerung, 
Passwortabfrage und vielem mehr erwerben. 

GCPM bietet Ihnen unter anderem: 

• Steuern Sie alle Funktionen Ihres Joyce wahlweise über 
Maus oder Tastatur. • Arbeiten Sie mit der Darstellung aller 
Dateien in Tabellenform ähnlich LogoScript und den Stan¬ 
dardfunktionen wie Kopieren, Umbenennen und Löschen. 

• Auf bis zu drei Laufwerken können Sie Parameter 
Suchpfade (ohne SETDEF) und das temporäre Laufwerk 
beliebig einstellen. • Verändern Sie Dateiattribute, und 
rufen Sie Programme direkt von GCPM aus auf. • Nutzen 
Sie die Funktionen zum Verschlüsseln und Komprimieren 
von ASCII-Dateien und die optionale Passwortabfrage 


Joyce-Bild-Editor 

Grafikprogramm zum Erstellen hochauf¬ 
lösender Grafiken 

Der Joyce ist mehr als ein Textverarbeitungssystem! 
Mit dem Joyce-Bild-Editor erstellen Sie komfortabel 
hochauflösende Grafiken, binden diese in eigene Pro¬ 
gramme ein oder geben sie auf dem Joyce-Drucker 
aus. 

Joyce° yCe ^ Bi,d Ed ' t0r ’ erschließt die Grafikfähigkeiten Ihres 

• Exaktes, pixelgenaues Zeichnen durch Normal- und Feinmodus 

• Lösch- und Invertierungsfunktion in beiden Bearbeitungsmodi 

• Einfache Integration beliebiger Texte in die Bildelemente 

• Laden und Speichern von Bildern mit übersichtlichem Dateimenü 

• Option zum Mischen von fertigen Bildern nach der Erstellung 

• Ausdruckmöglichkeit mit Randbestimmung auf dem Jovce- 

Drucker 1 

• Bis zu vier verschiedene, vordefinierte Druckformate anwählbar 

• Kompletter Quelltext in Turbo Pascal 3.0 wird mitgeliefert 

Joyce-Programmsammlung 4: 

Bild-Editor nur DM 49r * 


I Sparen Sie 
Zeit mit dem 
integrierten 
Taschenrech¬ 
ner mit Zwi¬ 
schenspei¬ 
cher und um¬ 
fassenden 
Rechenfunk¬ 
tionen 

• Verändern 
Sie beliebig 
die Grundein¬ 
stellungen 
der Schnitt¬ 
stelle, des 
Zeichensatzes. 

der Tastatur, der Maus, der Diskettenlaufwerke und des 
Druckers. • Ein Screensaver stellt den Monitor bei Nicht¬ 
gebrauch dunkel. • Mit dem GCPM-Starterset als Installa¬ 
tionsprogramm und 40seitigem Handbuch mit vielen Abbil¬ 
dungen können Sie im Handumdrehen GCPM auch auf 
Ihrem Joyce anwenden. Ein Programm, das jeder Joyce- 
Besitzer haben muß! 

Joyce-Programmsammlung 7: 

GCPM - Grafische Benutzeroberfläche nur dm 69,-* 


Für Präsentationen erstellen Sie mit GsxPlot Ge¬ 
schäftsgrafiken und Statistiken in Form von Balken-, 
Kurven- und Punktediagrammen für Bildschirm und 
Drucker. Mit FeldTab füllen Sie Vordrucke, Formulare 
und Tabellen mit Ihren Texten aus. 

GsxFMot - die Lösung für Busineß-Grafik auf dem Joyce- 

• Menugesteuerte Erstellung von Balken- und Kurvendiagrammen 

• Strich- und Textgrafik ebenfalls über Menüs steuerbar 

• Online-Hilfe zur schnellen Einarbeitung in die Programmfunktionen 

• Darstellung der erstellten Grafiken auf Bildschirm und Drucker 

FeldTab - plaziert Ihre Texte millimetergenau: 

• Komplette Menüsteuerung im gewohnten Aufbau von LocoScript 

• Genaue Eingabe von Seitenlänge, Zeilenabstand und Tabulatoren 

• Individuelle Bestimmung von Schrittweiten und Schriftarten 

• Eingebauter, komfortabler Seiteneditor zur Eingabe der Texte 

• Textübernahme von LocoScript oder als ASCII-File möglich 

Joyce-Programmsammlung 3: 

Busineß-Paket nur DM 59 / 


Joyce-Busineß-Paket 

Erstellung von Geschäftsgrafiken und 
Tabellentextverarbeitung 



Keine Inhaltsverzeichnisse mehr mühsam einzeln auslesenl 
Mit GCPM sind Sie über alle Laufwerke immer im Bilde. 


















Hochwertige Software zu Niedrigpreisen für Joyce-Besitzer 
aus der Angebotspalette des DMV-Verlags! 

Jede Programmsammlung ist, soweit nicht anders vermerkt, auf Joyce PCW 
8256 und 8512 lauffähig und wird als auf 3-Zoll-Diskette mit deutscher Bedie¬ 
nungsanleitung ausgeliefert. 


Joyce-Tabellenkalkulation 

Die universelle Tabellenkalkulation für alle Joyce-Be¬ 
sitzer. Ob Monatsbilanzen, Steuerabrechnungen oder 
Kontoführung-mit der Joyce-Tabellenkalkulation sind 
Sie allen Aufgaben gewachsen. 

Schnell, einfach und sicher - die Joyce-Tabellenkalkulation: 

• Schnelle Dateioperationen durch Benutzung der RAM Disk 

• Besonders schnelle Berechnungsalgorithmen für die Felderwerte • Übersichtliche 
Menüführung und 
Abfangen von Fehl- 
eingaben • Stan¬ 
dardmäßig bis zu 
2574 frei belegbare 
Felder für Berech¬ 
nungen • Am Rand 
eingeblendete For¬ 
mel mit bis zu 68 
möglichen Zeichen 

• Eigene Befehle 
zur Verkürzung der 
Formeln und Expo- 
nentialausdrücke 

• Ausdruck der Er¬ 
gebnisse in bis zu 
drei verschiedenen 
Schriftarten 


Joyce-Programmsammlung 6: 

Tabellenkalkulation für alle Joyce PCWs 

nur DM 59,- 



Joyce-Datenbank 

Die ideale Datenbank für den Joyce mit minimalem 
Disketten-Speicherbedarf. Dennoch bietet Ihnen diej 
Joyce-Datenbank maximal 27 Felder pro 
Datensatz, 50 Stellen pro Feld und bis zu 
35.000 Datensätze pro Datei. 

Daten effektiv verwalten mit der Joyce-Datenbank: 

• Besonders schnell durch Verwendung der RAM-Disk für das 
Programm 

• Universell durch die Ver¬ 
wendung von Standard- 
Direktzugriffsdateien 

• Bequem durch Datentrans¬ 
fer von vorhandenen in neuan¬ 
gelegte Dateien 9 Maske zur 
Datenerfassung und Ände¬ 
rung wird automatisch gene¬ 
riert • Komfortabel durch 
Wahl der Sortierkriterien oder 
Mehrfachsortierung 

• Listen mit automatischer 
Spaltenformatierung und 
Spaltensummen • Automa¬ 
tischer Eintrag neuer Dateien 
In das Disketten-Hauptmenü 

• Speicherung einmal ge¬ 
wählter Druckparameter zur Wiederverwendung 

Joyce-Programmsammlung 5: 

Datenbank (pcw 9512 auf 
Anfrage) nur DM 69,-* 


Joyce-Zeichensatz-Designer Joyce-Dateiverwaltung 


Erstellung von Zeichensätzen und 
grafische Darstellung mathematischer 
Funktionen 

Sonderzeichen und ganze eigene Zeichensätze für die 
Bildschirmausgabe erstellen Sie komfortabel und ein¬ 
fach mit dem Joyce-Zeichensatz-Designer. Mit dem 
Programm MGX können Sie mathematische Funktio¬ 
nen und Meßreihen auf Bildschirm und Drucker ausge¬ 
ben. 

Zeichensätze selbstgemacht mit dem Joyce-Zeichensatz-Designer: 

• Editieren, Erstellen und Abspeichern von Bildschirm-Zeichensätzen 

• Drucken von vorformatierten ASCII-Texten unter CP/M Plus möglich 

• Vier fertig gestaltete Zeichensätze im Lieferumfang enthalten 

• Bonusprogramm zum Einstellen der Joyce-Schnittstelle und Tastatur 

MGX - Funktionen und Meßwerte grafisch auf Bildschirm und Drucker: 

• Arithmetische Grund- und Sonderfunktionen sind darstellbar 

• Gleichzeitige Darstellung mehrerer Funktionen und Meßreihen 

• Druckerausgabe der Ergebnisse im Großformat möglich 

• Neben einer Klammerebene ist eine Memory-Funktion integriert 

Joyce-Programmsammlung 1: 
Zeichensatz-Designer nur dm 49,-* 



Universelle Erstellung und 
Verwaltung eigener Dateien 

Legen Sie Ihre Daten in eigene Dateien ab, und 
verwalten Sie diese mit SuperDat. Rund¬ 
schreiben, Serienbriefe und eine Übernahme 
der Daten in LocoScript erledigen Sie mit 
SuperTex. Ein leistungsfähiger Taschenrech¬ 
ner steht Ihnen mit SuperCal zur Verfügung. 

SuperDat - Super-Dateiverwaltung für Ihre Daten: 

• Komfortable Eingabe der Daten in eine Eingabemaske 

• Mehrere Arten von Suchfunktionen, z.B. auch Suche mit Jokern 

• Dateien bis zu 8 Feldern und Datensätze bis 255 Zeichen möglich 

SuperTex - verarbeitet Ihre Daten automatisch: 

• Einfügen von ausgewählten Einträgen aus SuperDat-Dateien in Text 

• Umwandlung von bis zu 30 Datensätzen in eine LocoScript-Datei 

SuperCal - der Tachenrechner für den Joyce: 

I Bietet Grundrechenarten, Winkel-. 

Quadrat- und Prozenttunktionen 

• Neben einer Klammerebene ist 
eine Memory-Funktion integriert 

Joyce-Pro- 
gramm- 
sammlung 2: 

Dateiverwaltung 
nur DM 49 ,-* 






























Koplerprograrrm 
RAM-Monitor 

LOGO: 

Prozeduren 
zum Zeichnen 

Prog ramm e: 

Minl-DTP 


Joyce-Sonderhefte 


A^I pu ?- ikatl 5J n ?lÄ r PC Amstrad international bieten die Joyce- 
Sonderhefte auf jeweils 120 Seiten ausschließlich erstmaliq veröffentlichte 
Beitrage sowie reichlich Tips & Tricks zu Joyce/PCW 8256, 8512 und 9512. 




Aus dem Inhalt: 

Joyce-Sonderheft 4: 

• Strickmustergenerator 

• WordStar-Verbesserungen 

• Bundesligasimulation 

• Super-Reaktionsspiel Filemanager 

• Pulldown-Menüs 

• Astrologieprogramm 

• Diskettenmonitor 

• Hauptstädte raten in LOGO 

• Statuszeile für dBase und Basic 

• Hardcopy-Routine für 24-Nadler 

• LOGO macht Schachteln 

• dBase-Literaturverwaltung 

• Universelles Werkzeug zur Veränderung von dBase-Dateien 

• Joyce-Sonderheft-Kombipack 


• Vokabeltrainer 

• RAM-Monitor - Speicherinhalte verändern 

• Memory-Spiel 

• Mini-DTP-Programm 

• Drucker-Spooler unter CP/M 

• Disketten-Kopierprogramm bis 43 Spuren 

• Grafik auf dem Joyce-Drucker 

• Tastaturbelegung unter CP/M und 
LocoScript ändern 

• Reset ohne Datenverlust 

• Super-Werkzeugkiste dBase 

• Grafikutilities für LOGO 


Joyce-Sonderheft 2 : 


DM 29,-* 


Joyce-Sonderheft 3: 


Adreßverwaltung 
Archivprogramm (Video- oder Literaturverwaltung) 
Pascal-Compiler in Basic 
Suburbia (Spiel ähnlich Monopoly(R)) 

Turbo-Pascal-Grafikroutinen ohne GSX 
Komfortable Balkengrafik 
Joyce-Zweitlaufwerk selbst anschließen 
3D-Plotter 

Etikettendruckprogramm 

Ordnung auf der Diskette mit LocoScript 

dBase-Handbuch selbst ausdrucken 

LOGO-Funktionenzeichner 


Jeweils ein Sonderheft + die DATABOX 













DMV-Bücher zum Joyce 

Alle Besitzer eines Joyce-PCW, die ahnten, daß der Horizont Ihres 
Computers weit über LocoSript hinausgeht, finden jetzt Ihre Bestätigung: 


Joyce - mehr als ein 
Textsystem 

Auf über 300 Seiten tragen die Autoren alles Wissenswerte 
über den Joyce/PCW zusammen. Anfänger wie Profis, 
Anwender wie Programmierer finden in diesem Buch einen 
reichen Schatz an Tips und Tricks sowie ein unentbehrli¬ 
ches Nachschlagewerk. 

Erstmals wird auch in einem Buch ein »heißes« Eisen 
ausführlich behandelt: die Hardware des Joyce. Besonders 
dieses Kapitel zeigt völlig neue Möglichkeiten des Joyce - 
so wird beispielsweise der Anschluß eines Sprachsynthe¬ 
sizers und der Selbstbau einer Schnittstelle besprochen. 
Ausführliche Kapitel über Basic und LOGO erlauben Ihnen, 
die Möglichkeiten dieser Sprachen auszureizen. Anfänger, 
die sich erstmals in der Programmierung versuchen wollen, 
finden durch sinnvolle, kurze Beispielprogramme wertvolle 
Unterstützung. Ein besonderes »Schmankerl« ist das gro¬ 
ße Extra-Kapitel zur JETSAM-Dateiverwaltung. 


JOYCE - mehr als ein Textsysiem 

Änwonriunnen und Problemlösungen 


Aus dem Inhalt: 

• Sprachen: 

LOGO als Grafiker und mit kompletter Befehlsübersicht 
Erläuterung aller Basic-Befehle mit Beispielprogrammen 
Generator für Jetsam-Verarbeitung 
Kurzübersicht für Turbo Pascal und C 

• Programmierhilfen, Tips und Tricks: 
Steuercode-Tabellen für Bildschirm und Drucker 
XBIOS-Routinen 

OUTs und POKEs unter Basic 

• Hardware: 

Speichererweiterung 

Zweitlaufwerk 

Druckkopfreinigung 

Bildschirminverter 

Schnittstelle am Expansions-Port 

Sprachsynthesizer 

Joyce - mehr als ein Textsystem 

325 Seiten mit farbigen Abbildungen, Leinen- 
Hardcover, 

inklusive 3-Zoll-Diskette jetzt nur dm 49,-* 


Unser Joyce-Hit weiter im 
Angebot: 

Praktische Textverarbeitung mit Joyce 

Der Autor Jürgen Siebert zeigt in diesem Buch die Möglich¬ 
keiten der Textverarbeitung LocoScript auf. Darunter vieles, 
was Sie von LocoScript nicht erwartet hätten.... 

Von der Pike auf werden Sie an den Umgang mit Schablo¬ 
nen und Standard-Layouts herangeführt. Einige Abstecher 
führen auch zu anderen Textverarbeitungen unter CP/M 
wie ED und Wordstar. 


Auf der Diskette erhalten Sie über 50 Datei 
en mit Schablonen, Brief- und Postkarten 
Layouts, Serien-Rundschreiben, Etiketten 
Formularen, Schriften, Bildschir¬ 
minstallationen und vieles mehr. 

Aus dem Inhalt: 

• LocoScript-Training für Fort¬ 
geschrittene 

• Wie rette ich den Text bei 
Systemfehlern? 

• Joyce-Tasteninstallation für 
Wordstar 

• Aleatorische Poetik: 

Der Computer dichtet 

Praktische 
Textverarbei¬ 
tung mit Joyce 

207 Seiten, 

Leinen-Hardcover, 

Inklusive 3-Zoll - 
Diskette 

jetzt nur DM 49,-* 






























Meisterstücke der Computergrafik 


High-Speed: 

Höchsteffiziente Programmierung in Assemb¬ 
ler und intelligente Berechnungs-Routinen für 
enorme Zeitersparnis 

Mandelbrot und Juliamenge: 

Mit automatischer Glättungsfunktion 

Stufenloser vertikaler Blickwinkel: 
Wahlweise Sicht von oben, unten, schräg 
und in der Totalen einzeln und stufenlos 
einstellbar 


Voller Bedienungskomfort: 

Auswahl komplett mit Pulldown-Menüs. 
Wahlweise Steuerung mit der Maus oder 
über die Tastatur 


Mehrere separate Bildspeicher: 
Getrennte Abspeicherung von Farben und 
Bild. Verwendung der Bilder in Malprogram¬ 
men 

Phantastische Farbmöglichkeiten: 
Farben-Mischpaletten im Auswahlmenü. 
Beliebige nachträgliche Veränderung der 
Bildfarben 

Fraktal-Generator 3D PC 

Spezial Version für Amstrad/Schneider 1512 

alle PC/XT/AT mit EGA- oder VGA-Karte 


DM 69,- 51 


Fraktal-Generator 3D CPC 
3-Zoll-Diskette 


Ja 


DM 49, 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 


/ / /Daten- und 


























Im Prinzip geht es darum, möglichst viele Punkte zu 
sammeln, ohne dabei seine Spielleben zu verlieren. 

Dies geschieht, indem man seinen Ball (Spieler 1: rechte 
Figur, blauer Ball; Spieler 2: linke Figur, grüner Ball) 
pp gegen einen Stein spielt, welcher dann entweder 
aufblitzt oder explodiert. Die Spiel Figuren werden 
mit den beiden Joysticks gesteuert oder alternativ über 
die folgenden Tasten: 

6 - hoch, 

5 — runter, 

T — rechts, 

R - links, 

G — Schuß 

Wird der eigene Ball durchgelassen, so wird ein Leben abge¬ 
zogen, was auf der oberen Anzeige zu sehen ist. Kann der 
Ball des Gegners passieren, so bekommt man einen Minus¬ 
punkt. 

Der Ball kann durch die Bewegung des Schlägers beschleu¬ 
nigt oder verlangsamt werden. 

Die Form des Schlägers wird durch “Falldowns“ verändert. 
Sind alle Räume durchgespielt, fängt man wieder bei Raum 
eins an. 

Falldowns: 

- Hellblau: Ball wird langsam. 

- Dunkelblau: Ball wird schnell. 

- Gelb: 20 Punkte Bonus, und die Figur wird klein. 

- Violett: Figur wird groß. 

- Rot: Es kann gefeuert werden, und die Figur wird klein. 

- Orange: Kleber; er läßt den Ball am Schläger kleben. 
Dieser kann mit dem Feuerknopf wieder weggeschleu¬ 
dert werden. 

- Grün: Bonusleben 

Zum Programm 

Das Spiel wird begonnen, indem man das Programm mit 
RUN “BREAK“ startet und anschließend die Taste “S“ 
drückt. 

Den Gegner kann man sich mit der Taste “G“ aussuchen 
(Spieler oder Computer). 

Will man die Räume ändern oder selbst welche kreieren, so 
muß die Taste “E“ gedrückt werden, um in den Raumeditor 
zu gelangen. 

Zum Editor 

Im Raumeditor stehen einige Tastenfunktionen zur Verfü¬ 
gung. Mit den Cursortasten wird ein gelber Block (kurz Cur¬ 
sor genannt) bewegt. 

Shift+Cursor-hoch und -runter: verändert den aktuellen 
Stein (oben rechts zu sehen). 

Control+Cursor-hoch und -runter: springt zum nächsten be¬ 
ziehungsweise letzten Raum. Bei einem Sprung über den 
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I—Programm 



letzten Raum hinaus wird die Anzahl 
der Räume um eins erhöht. 

Leertaste: setzt den aktuellen Stein auf 
die Cursorposition. 

“L“: löscht den aktuellen Raum. 

“E“: fügt einen Leerraum zwischen 
dem aktuellen und dem nächsten Raum 
ein. 

“S“: speichert die Räume auf Diskette 
oder Kassette und springt anschließend 
in das Hauptprogramm zurück. 


Nicht nur Reaktion ist 
gefragt, wenn die 
Mauern zerspringen. 
Ohne Köpfchen läuft 
hier gar nichts 

Mit der Taste “H“ wird gleich in das 
Hauptprogramm verzweigt. 

WICHTIG: Wurden die editierten 
Räume nicht mit 'S“ abgespeichert, so 
werden sie im Speicher wieder gelöscht. 

Zur Speicherung 

Das Programm besteht aus mehreren 
Programmteilen; einem BASIC-Pro- 
gramm, drei Dataladern (Break.MCI 
bis Break.MC3) und zwei kleinen Li- 


stings, die eine leere Highscore-Liste 
und die Grafikelemente erzeugen. Das 
BASIC-Programm ist unter BREAK 
.BAS abzuspeichern, die Datalader 
sollten vor dem Starten unter BREAK 1 
.LDR bis BREAK3.LDR abgespei¬ 
chert werden, die sogenannte y-Tabeiie 
unter TABELLE.BAS und die High¬ 
score-Liste unter HIGH.BAS. 

Hinweis für Kassettenbenutzer 
Alle Programmteile, außer BREAK 
.BAS, sind auf einer zweiten Kassette, 
wie oben angegeben, abzuspeichern. 
Anschließend sind die einzelnen Teile 
wieder einzuladen und zu starten(!), 
damit sie in folgender Reihenfolge auf 
Kassette stehen: 

BREAK.BAS, BREAK.TAB, BREAK 
.MCI, BREAK.MC2, BREAK.MC3, 
BREAK.HI. 

Soll zu einem späteren Zeitpunkt der 
Highscore abgespeichert werden, so 
muß die Kassette bis “BREAK.HI“ zu¬ 
rückgespult werden. Will man Räume 
abspeichern, so muß man die Kassette 
zum Anfang des Programms “BREAK 
.MC3“ zurückspulen. Dann “S“ im 
Editor drücken. 

(Thomas Nolte/cd) 


1,6,3,3,3,12,11 

3.3.12.1.15.1.2 
3370 DATA 1,0,2 
0 , 2 , 1 , 0 , 0 , 0 , 2,1 
3380 DATA 1,15, 

3.2.1.15.3.2.1, 
3390 DATA 1,0,2 
, 1 , 0 , 7 , 4 , 4 , 4 , 9 , 
3400 DATA 1,15, 
,12,1,15,1,6,5, 

15.1.6.5.15.1.2 
3410 DATA 1,0,0 
0 , 0 , 0 , 2 , 1 , 0 , 0,0 
3420 DATA 1,15, 
3,2,1,15,3,2,13 
3430 DATA 1,0,7 
,7,8,0,2,1,0,7, 
3440 DATA 1,15, 
1,2,1,15,1,6,5, 
,3,3,3,5,15,1,2 
3450 DATA 1,0,0 
0 , 0 , 0 , 2 , 1 , 0 , 0,0 
3460 DATA 1,15, 
3,2,1,15,3,2,13 
3470 DATA 1,0,7 
8,0,2,10,4,4,4, 
3480 DATA 1,15, 

3.3.5.15.1.2.1, 

15.1.2.1.15.1.2 
3490 DATA 1,0,2 
0 , 2 , 1 , 0 , 0 , 0 , 2,1 
3500 DATA 1,15, 

3.2.1.15.3.2.1, 
3510 DATA 1,0,2 
,9,10,4,4,4,8,0 
3520 DATA 1,15, 
6,14,8,3,5,15,1 
,13 

3530 DATA 1,14, 
3540 DATA 1,15, 
3550 DATA 10,14 
3560 ' LI 
3570 DATA 11,14 


,3,3, 

,13 

, 1 , 0 , 

, 0 , 2 , 

1 , 2,1 

15,1, 

, 1 , 0 , 

1,0,7 

1,6,5 

15,1, 

,13 

, 0 , 2 , 

,2,13 

3,2,1 


3,5,15,1,2,1,15 
0 , 0 , 0,2 
1,15,3, 


0 , 0 , 2 , 1 , 

13 

,15,3,2, 
2,13 
7 , 8 , 0 , 2 , 
, 8 , 0 , 2 , 1 
,15,1,2, 
2,11,3,3 

1, o, 0,0 , 

,15,3,2, 


10,4,4, 

,0,2,13 

1,15,1, 

,3,5,15 

2 , 1 , 0,0 

1,15,3, 


,4,4,4,9,10,4,4,4,8, 

4,4,4,9,10,4,4,4,8,0 

1.6.3.3.3.12.11.3.3, 

15.1.2.1.15.1.6.3.3, 
,13 

, 0 , 2 , 1 , 0 , 0 , 0 , 2 , 1 , 0,0 

2 13 

3.2.1.15.3.2.1.15.3, 

, 8 , 0 , 2 , 1 , 0 , 7 , 4 , 4 , 4,9 
8,0,2,1,0,7,8,0,2,13 
1,2,1,15,1,6,5,15,1, 
15,1,6,3,3,3,12,1,15 
,13 

, 1 , 0 , 0 , 0 , 2 , 1 , 0 , 0 , 0,2 

,0,2,13 

1.2.1.15.3.2.1.15.3, 
15,1,2,13 

,10,4,4,4,8,0,2,1,0, 
, 2 , 1 , 0 , 7 , 4 , 4 , 4 , 9 , 1,0 
1,6,14,4,3,5,15,1,6, 
,6,5,15,1,6,14,4,3,5 


,1,6,3, 
, 1 , 0 , 0 , 
2,1,15, 
4,8,0,2 

6.3.3.3 

# 1 , 2 , 1 , 

, 0 , 2 , 1 , 

2.1.15, 

0 , 2 , 1,0 

,2,13 

3.5.15, 
3,12,11 

, 0 , 2 , 1 , 

2.1.15, 

,1,0,7, 

2,11,3, 

,1,6,5, 

, 1 , 0 , 0 , 

2,1,15, 

7.4.4.4 
,2,13 
5,15,1, 
,15,1,2 


19,0,2,13 

19,2,13 

,38,4,9,13 

.38,3,12,13 


[2808] 

[3644] 

[3743] 

[4424] 

[2606] 

[2512] 

[3754] 

[4804] 

[2606] 

[2512] 

[3290] 

[4499] 

[2808] 

[3644] 

[3121] 

[3449] 


(582] 

[864] 

[ 1120 ] 

[80] 

[ 1034] 


3580 DATA 1,14,19,0,2,13 
3590 DATA 1,15,19,2,13 

3600 DATA 1,0,7,14,14,4,8,0,7,14,14,4,8,0, 

2.13 

3610 DATA 1,15,1,2,11,14,13,3,5,15,1,6,14, 

13.3.12.1.15.1.2.13 

3620 DATA 1,0,2,1,14,15,0,2,1,0,2,13 
3630 DATA 1,15,1,2,1,15,15,2,1,15,1,2,13 
3640 DATA 1,0,2,1,0,7,14,10,4,8,0,7,14,10, 
4,8,0,2,1,0,2,13 

3650 DATA 1,15,1,2,1,15,1,2,11,14,9,3,5,15 
,1,6,14,9,3,12,1,15,1,2,1,15,1,2,13 
3660 DATA 1,0,2,1,0,2,1,14,11,0,2,1,0,2,1, 
0,2,13 

3670 DATA 1,15,1,2,1,15,1,6,5,15,11,6,5,15 
,1,2,1,15,1,2,13 

3680 DATA 1,0,2,1,0,0,0,7,14,16,4,8,0,0,0, 
2,1,0,2,13 

3690 DATA 1,15,1,2,1,15,3,6,14,16,3,5,15,3 
,2,1,15,1,2,13 

3700 DATA 1,0,2,1,0,7,8,14,11,0,7,8,0,2,1, 
0,2,13 

3710 DATA 1,15,1,2,1,15,1,2,1,15,11,2,1,15 
,1,2,1,15,1,2,13 

3720 DATA 1,0,2,1,0,2,10,14,9,4,8,0,7,14,9 
,4,9,1,0,2,1,0,2,13 

3730 DATA 1,15,1,2,1,15,1,6,14,10,3,5,15,1 

,6,14,10,3,5,15,1,2,1,15,1,2,13 

3740 DATA 1,0,2,1,14,15,0,2,1,0,2,13 

3750 DATA 1,15,1,2,1,15,15,2,1,15,1,2,13 

3760 DATA 1,0,2,10,14,30,4,9,1,0,2,13 

3770 DATA 1,15,1,6,14,32,3,5,15,1,2,13 

3780 DATA 1,14,19,0,2,13 

3790 DATA 1,15,19,2,13 

3800 DATA 10,14,38,4,9,13 

3810 'L4 

3820 DATA 11,14,38,3,12,13 

3830 DATA 1,0,0,0,7,8,14,15,0,2,13 

3840 DATA 1,15,3,6,5,15,15,2,13 

3850 DATA 1,0,7,8,0,7,8,0,7,8,0,7,8,0,7,8, 

0,7,8,0,7,8,0,7,8,0,7,8,0,2,13 

3860 DATA 1,15,1,2,1,15,1,2,1,15,1,2,1,15, 

1,2,1,15,1,2,1,15,1,6,5,15,1,2,1,15,1,6,5, 

15.1.6.5.15.1.2.13 


[582] 

[864] 

[1912] 

[2618] 

[1713] 

[1993] 

[2537] 

[2660] 

[1701] 

[2404] 

[2609] 

[3042] 

[1732] 

[2079] 

[2354] 

[3712] 

[1713] 

[1993] 

[1406] 

[1460] 

[582] 

[864] 

[ 1120 ] 

[73] 

[1034] 

[1554] 

[1379] 

[3163] 

[4466] 


70 PC 6/7’90 




























Listing—i 


3870 DATA 1,0,2,1,0,2,1,0,2,1,0,2,1,0,2,1, [3072] 
0,0,0,2,1,14,5,0,2,13 

3880 DATA 1,15,1,2,1,15,1,2,1,15,1,2,1,15, [3344] 

1.6.5.15.1.2.1.15.3.6.5.15.5.2.13 

3890 DATA 1,0,2,1,0,2,1,0,2,1,0,0,0,2,10,4 [2373] 
,4,4,8,0,0,0,7,8,0,7,8,0,2,13 

3900 DATA 1,15,1,2,1,15,1,2,1,15,1,2,1,15, [3166] 

3.6.14.4.3.5.15.3.2.1.15.1.6.5.15.1.2.13 

3910 DATA 1,0,2,1,0,2,1,0,2,1,0,7,8,14,5,0 [2552] 
,7,4,4,4,9,1,0,0,0,2,13 

3920 DATA 1,15,1,2,1,15,1,2,1,15,1,2,1,15, [3024] 

1.6.5.15.5.2.11.3.3.12.1.15.3.2.13 

3930 DATA 1,0,2,1,0,2,1,0,2,1,0,0,0,7,14,4 [3037] 
,4,8,0,2,1,0,2,1,0,7,8,0,2,13 

3940 DATA 1,15,1,2,1,15,1,2,1,15,1,6,5,15, [5020] 
3,2,11,3,3,3,5,15,1,6,5,15,1,2,1,15,1,6,5, 

15.1.2.13 

3950 DATA 1,0,2,1,0,2,1,0,0,7,4,4,8,0,2,1, [2917] 
14,5,0,2,1,0,0,0,2,13 

3960 DATA 1,15,1,2,1,15,1,2,1,15,2,2,11,3, [3446] 

5.15.1.6.5.15.5.2.1.15.3.2.13 

3970 DATA 1,0,2,1,0,2,10,4,8,0,2,1,14,4,0, [4034] 

7,8,0,7,4,4,4,9,10,4,4,4,8,0,2,13 

3980 DATA 1,15,1,2,1,15,1,6,3,3,5,15,1,6,5 [3218] 

,15,4,2,1,15,1,6,3,3,3,12,11,3,3,3,5,15,1, 

2.13 

3990 DATA 1,0,2,1,14,6,0,7,4,4,8,0,2,1,0,0 [2329] 
,0,2,1,0,0,0,2,13 

4000 DATA 1,15,1,2,1,15,6,2,11,3,5,15,1,6, [2760] 

5.15.3.2.1.15.3.2.13 

4010 DATA 1,0,2,10,14,5,4,8,7,8,7,8,0,2,1, [3100] 
0,0,0,7,4,4,8,0,2,1,0,7,8,0,2,13 

4020 DATA 1,15,1,6,14,6,3,5,6,5,6,5,15,1,6 [4481] 

,5,15,3,6,3,3,5,15,1,6,5,15,1,6,5,15,1,2,1 

3 

4030 DATA 1,14,10,0,7,8,14,8,0,2,13 [1061] 


4040 DATA 1,15,10,6,5,15,8,2,13 [1364] 

4050 DATA 10,14,38,4,9,13 [1120] 

4060 ' [117] 

4070 ' ** ENDE ** (13.08.89) [1057] 


10 ' [117] 

20 ' * Da talader 1 zu Cave (Sprit eprogranun [2775] 

) 

30 ' [117] 

40 MEMORY &9FFF [134] 

50 FOR g=&A000 TO &AQ2D:READ a$:POKE g,VAL [3278] 

("&"+a$):NEXT 

60 SAVE "cave.mcl”,b,&A000,&2E [1245] 

70 END [HO] 


80 DATA DD,66,07,DD,6E,06,DD,56,09,DD,5E,0 [2532] 
8,DD,E5,CD,ID 

90 DATA BC,DD,El,DD,56,01,DD,5E,00,DD,4E,0 [1895] 
2,DD,46,04,E5 

100 DATA 1A,77,23,13,10,FA,El,CD,26,BC,0D, [2898] 
20,EF,C9 


10 ' [117] 

20 ' * Datalader 2 zu Cave (Sprites) [2897] 

30 ' [117] 

40 MEMORY &8FFF [207] 

50 FOR g=&9000 TO &93BF:READ a$:POKE g,VAL [3069] 

("&"+a$):NEXT 

60 SAVE "cave.mc2",b,&9000, &3C0 [1566] 

70 END [HO] 


80 DATA 00,11,88,00,00,57,AE,00,11,EF,7F,8 [3362] 
8,33,FF,FF,CC 

90 DATA 67,3F,CF,6E,57,D7,BE,AE,FD,FD,FB,F [2970] 
B,FC,Fl,F8,F3 

100 DATA FE,F3,FC,F7,77,EF,7F,EE,33,DF,BF, [3229] 
CC,00,BF,DF,00 

110 DATA 11,00,00,88,11,DF,BF,88,11,EF,7F, [2232] 
88,11,9F,9F,88 

120 DATA 00,11,CC,00,00,33,FF,00,00,77,D3, [3273] 
88,FF,76,E7,CC 

130 DATA 6E,FE,E5,CC,AE,7E,E7,EE,CE,BF,D3, [2456] 
CE,AE,DF,FF,BF 

140 DATA AE,DF,FF,BF,CE,BF,D3,CE,AE,7E,E7, [2532] 
EE,6E,FE,E5,CC 

150 DATA FF,76,E7,CC,00,77,D3,88,00,33,FF, [2032] 
00,00,11,CC,00 

160 DATA 11,7F,EF,88,11,AF,5F,88,11,DF,BF, [2957] 
88,11,00,00,88 

170 DATA 00,BF,DF,00,33,DF,BF,CC,77,EF,7F, [2220] 


EE,FE,F3,FC,F7 

180 DATA FC,Fl,F8,F3,FD,FD,FB,FB,57,D7,BE, 

AE, 67,3F,CF,6E 

190 DATA 33,FF,FF,CC,11,EF,7F,88,00,57,AE, 
00,00,11,88,00 

200 DATA 00,33,88,00,00,FF,CC,00,11,BC,EE, 
00,33,7E,E6,FF 

210 DATA 33,7A,F7,77,77,7E,E7,67,37,BC,DF, 
27,DF,FF,BF,57 

220 DATA DF,FF,BF,57,37,BC,DF,27,77,7E,E7, 
67,33,7A,F7,77 

230 DATA 33,7E,E6,FF,11,BC,EE,00,00,FF,CC, 
00,00,33,88,00 

240 DATA 11,7F,EF,88,11,9F,9F,88,11,EF,7F, 
88,11,9F,9F,88 

250 DATA 11,7F,EF,88,11,9F,9F,88,11,EF,7F, 
88,11,9F,9F,88 

260 DATA 00,00,00,00,00,00,FF,FF,7F,7F,AF, 

AF, AF,AF,DF,DF 

270 DATA DF,DF,AF,AF,AF,AF,7F,7F,FF,FF,00, 
00,00,00,00,00 

280 DATA 00,00,00,00,00,11,88,00,00,33,CC, 
00,00,67,6E,00 

290 DATA 00,DF,BF,00,00,BF,DF,00,11,DF,BF, 
88,11,EF,7F,88 

300 DATA 00,00,00,00,00,00,CC,00,FF,00,DF, 
88,AF,CC,7F,6E 

310 DATA 7F,6E,AF,CC,DF,88,FF,00,CC,00,00, 
00,00,00,00,00 

320 DATA 11,EF,7F,88,11,DF,BF,88,00,BF,DF, 
00,00,DF,BF,00 

330 DATA 00,67,6E,00,00,33,CC,00,00,11,88, 
00,00,00,00,00 

340 DATA 00,00,00,00,00,00,00,33,00,FF,11, 
BF,33,5F,67,EF 

350 DATA 67,EF,33,5F,11,BF,00,FF,00,33,00, 
00,00,00,00,00 

360 DATA FE,00,FE,00,FE,00,FE,00,FE,00,FE, 
00,FE,00,FE,00 

370 DATA FF,FF,FF,FF,FF,FF,F0,F0,00,00,00, 
00,00,00,00,00 

380 DATA 00,F7,00,F7,00,F7,00,F7,00,F7,00, 
F7,00,F7,00,F7 

390 DATA 00,00,00,00,00,00,00,00,F0,F0,FF, 
FF,FF,FF,FF,FF 

400 DATA EC,00,EC,00,CO,00,00,00,00,00,00, 
00,00,00,00,00 

410 DATA 00,73,00,73,00,30,00,00,00,00,00, 
00,00,00,00,00 

420 DATA 00,00,00,00,00,00,00,00,00,00,00, 
30,00,73,00,73 

430 DATA 00,00,00,00,00,00,00,00,00,00,CO, 
00,EC,00,EC,00 

440 DATA 10,FF,10,FF,31,FF,F3,FF,FF,FF,FF, 
FF,FF,FF,FF,FF 

450 DATA FF,80,FF,80,FF,C8,FF,FC,FF,FF,FF, 
FF,FF,FF,FF,FF 

460 DATA FF,FF,FF,FF,FF,FF,FF,FF,FF,FC,FF, 
C8,FF,80,FF,80 

470 DATA FF,FF,FF,FF,FF,FF,FF,FF,F3,FF,31, 
FF,10,FF,10,FF 

480 DATA 00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00 

490 DATA 00,00,00,00,00,00,00,00,00,30,00, 
00,00,43,80,00 

500 DATA 00,43,80,00,00,30,00,00,00,00,00, 
00,00,00,00,00 

510 DATA 00,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00 

520 DATA 11,7F,EF,88,11,9F,DF,88,13,EF,3F, 
88,CF,1F,7F,88 

530 DATA 6F,CF,FF,00,AF,EF,FF,00,AF,EF,FF, 
00,DF,6F,EE,00 

540 DATA CF,8F,6E,00,BF,FF,4C,00,BF,FF,88, 
00,7F,EE,00,00 

550 DATA FF,00,00,00,00,00,00,00,00,00,00, 
00,00,00,00,00 

560 DATA 11,7F,EF,88,11,9F,9F,88,11,EF,7F, 
OC,11,EF,8F,7F 

570 DATA 00,FF,7F,6F,00,EF,FF,5F,00,EF,EF, 
5F,00,67,0F,BF 

580 DATA 00,47,FF,3F,00,33,FF,BF,00,11,FF, 
DF,00,00,77,EF 

590 DATA 00,00,00,FF,00,00,00,00,00,00,00, 
00,00,00,00,00 


[2562] 

[2531] 

[2575] 

[2775] 

[3275] 

[2741] 

[2616] 

[2616] 

[1198] 

[3534] 

[2570] 

[1707] 

[2546] 

[2368] 

[4097] 

[1551] 

[1769] 

[2627] 

[2430] 

[2150] 

[2093] 

[2851] 

[1659] 

[2341] 

[1542] 

[1642] 

[2928] 

[2303] 

[3014] 

[2555] 

[1083] 

[1686] 

[2148] 

[1083] 

[2805] 

[3311] 

[2974] 

[2528] 

[2106] 

[3058] 

[2511] 

[2632] 
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I—Listinq 


□ 


600 DATA 00,00,00,00,00,00,00,00,00,00,00, [1305] 
00,00,00,00,FF 

610 DATA 00,00,77,EF,00,11,FF,DF,00,23,FF, [1952] 
DF,00,67,1F,3F 

620 DATA 00,77,6F,BF,00,FF,7F,5F,00,FF,7F, [2063] 
5F,00,FF,3F,6F 

630 DATA 11,EF,8F,3F,11,CF,7F,8C,11,BF,9F, [2926] 
88,11,7F,EF,88 

640 DATA 00,00,00,00,00,00,00,00,00,00,00, [1782] 
00,FF,00,00,00 

650 DATA 7F,EE,00,00,BF,FF,88,00,DF,FF,CC, [3702] 
00,CF,FF,2E,00 

660 DATA DF,0F,6E,00,AF,7F,7F,00,AF,FF,7F, [1782] 
00,6F,EF,FF,00 

670 DATA EF,1F,7F,88,03,EF,7F,88,11,9F,9F, [2179] 
88,11,7F,EF,88 


Programm: 

Button-Designer 

Artikel: 

Kleb’ dir einen 

464 - 664 - 6128 

Disk./Kass. 


10 ’by A.Stroiczek [1131] 

20 MODE 2:DEFINT a-Z [2058] 

30 INK 0,26:INK 1,0:BORDER 23 [1603] 

40 IF PEEK(&BB01)=&5C THEN dadr=&B075 ELSE [3932] 
dadr=&B091 

50 POKE dadr,0 : MEMORY &8CFF:LOAD"HC.BIN",& [3287] 
8D00:CALL &8D00 

60 POKE dadr,4:POKE dadr+1,&3D:POKE dadr+2 [3704] 
,&93-.MEMORY &45FE 

70 DIM fk(78,19),ml(11),nl(11),m2(11),n2(1 [1990] 

80 FOR i=l TO 9:READ a:k$=k$+CHR$(a):NEXT [2756] 
90 DATA 120,11,10,13,240,241,103,54,53 [2075] 

100 Init=&4600:Linie=&4603:Box=&4606 [3290] 

110 Pointer=&4609:xdehn=&460C:ydehn=S460F [3106] 
120 Winopen=&4612:Winclose=&4615:Invbalk=& [2111] 
4618 

130 Kursiv=&46lB:Schrift=&461E:SchriftLen= [3131] 
&4621 

140 TeilClear=&4624:Catalog=&4627:Copy=&46 [2672] 
2A 

150 Zoomviereck=&462D:Mbox=&4630:Gracop=&4 [1359] 
633 

160 Grahol=&4636:Swapl80=54639:Cgra=&463C [3233] 
170 einst=&4645:loa=&4648:sav=&464B [2595] 

180 Cur=&463F:GK=&4642:temp=&4600:buff=&72 [3016] 
BF 

190 mark(0)=&5493:mark(1)=&553F:mark(3)=&5 [2115] 
5C2 

200 Frme=&BD19 [336] 

210 LOAD"G.BIN",&4600:CALL Init [1698] 

220 a$ (0)="Text" :a${1 )=''Grafik" :a$(2)="Dat [4402] 
ei":a$(3)="Drucker" 

230 d$(0) = ">> LADEN «" :d$(2)=d$(0) :d$ (4)= [3116] 
">> CATALOG «" 

240 n$=SPACE$(12) [975] 

250 p(0)=354:p(l)=418:p(2)=499:p(3)=570 [1771] 

260 b(0)=42:b(l)=50:b{2)=60:b{3)=69 [1698] 

270 le(0)=8:le(1)=10 : le(2)=9 : le(3)=11 [2069] 

280 wp(0)=29:wp(l)=50:wp(2)=60:wp(3)=61 [1622] 

290 bl(0)=18:bl(l)=21:bl(2)=20:bl(3)=19 [2795] 

300 bp(0)=42:bp(1)=50:bp(2)=60:bp(3)=61 [1697] 

310 anz(0)=17:anz(1)=15:anz(2)=5:anz(3)=4 [1955] 

320 dy(1)=16:dy(2)=-16:dy2(1)=-l:dy2(2)=1 [2927] 

330 h(0)=8:h(l)=8:h(2)=8:h(3)=10:h(4)=ll [2044] 

340 j(3)=2:j(4)=4:g(0)=l:g(l)=2:g(2)=4 [1736] 

350 a=90:b=350:c=a+10:d=b-8:e=0:f=0 [2863] 

360 FOR i=0 TO 10:ml(i)=a:nl(i)=b:m2(i)=c: [2913] 

n2(i)=d 

370 a=a+10:c=c+10+e:b=b-5:d=d-5-f:e=e+4:f= [3941] 
f+2:NEXT 

380 ml(i)=a:n1(i)=b:m2(i)=a+239:n2(i)=b-l2 [2850] 
6 

390 x=340:y=370:t=0:k=0 [1079] 

400 CALL Gracop,t,t,t,t [1006] 

410 cpx=61:cpy=370 [745] 

420 xl=0:yl=0:x2=0:y2=0 [1643] 

430 bd=0:rout=0:routine=0 [1733] 

440 swp=0:ov=l:mnr=0 [1042] 

450 um=0:art=0:ku=0:th=0:tb=0:yx=78 [1109] 

460 mp(0)=58:mp(1)=69:mp(2)=78:mp(3)=78 [1385] 


470 zl=0:z2=l:txt$="" 

480 WINDOW£l,44,79,15,19 

490 FOR i=l TO 5:READ a,b,c,d 

500 FOR j=e TO b:FOR k=c TO d 

510 fk(j,k)=i:NEXT:NEXT:NEXT 

520 DATA 42,49,19,19,50,59,19,19,60,68,19, 

19,69,78,19,19,43,78,0,6 

530 GOSUB 810 

540 ' 

550 'Hauptschleife 
560 CALL Cur,x,y,t,t 
570 GOSUB 3180:GOSUB 3360 
580 a=fk(x\8,y\16-5) 

590 IF a=0 THEN 570 
600 CALL Cur,x,y,t,t 
610 IF a=5 THEN 1230 
620 ' 

630 'Menue 

640 w=a-l:b=anz(w):c=bp(w):d=bl(w) 

650 my=0:ay=0:mgy=390:amy=0 
660 GOSUB 910 
670 GOSUB 3160 

680 a$=LOWER$(INKEY$):IF a$=""THEN 680 
690 a=(INSTR(k$,a$)-1)MOD 3 
700 IF a<0 THEN 680 
710 IF a=0 THEN 770 

720 ay=my:my=MIN(my+dy2(a),b):my=MAX(my,0) 

:IF ay=my THEN 680 

730 amy=mgy:mgy=mgy+dy(a) 

740 IF ay THEN CALL Invbalk,c,amy,d 
750 IF my THEN CALL Invbalk,c,mgy,d 
760 GOTO 680 

770 y=mgy:IF my THEN ON w+1 GOTO 1480,1510 
,1540,1580 

780 GOSUB 940:GOTO 560 
790 ' 

800 'Bildaufbau 

810 FOR i=0 TO 3:t$=a$(i):CALL Schrift,p(i 
) ,398,@t$,0:NEXT 

820 t$=">» Texteingabe «<":CALL Schrift, 

426,206,@t$,0 

830 bd=l:GOSUB 3390 

840 PLOT 0,80:DRAW 639,80 

850 PLOT 639,382:DRAW 336,382:DRAW 336,80 

860 PLOT 336,190:DRAW 639,190 

870 PLOT 336,210:DRAW 639,210 

880 RETURN 

890 ' 

900 'W.oeffnen 

910 CALL InvBalk,b(w),398,le(w):CALL Winop 
en,wp(w),382,w:GOTO 3180 
920 ' 

930 'W.schliessen 

940 CALL InvBalk,b(w),398,le(w):CALL Wind 
ose 

950 GOSUB 3180:IF w OR txt$=""THEN RETURN 
960 CALL TeilClear,0,yx,80,33 
970 ON art+1 GOSUB 1020,1030,1050,1060,110 
0 

980 IF th THEN GOSUB 1150 
990 IF tb THEN GOSUB 1160 
1000 IF ku THEN GOSUB 1130 
1010 RETURN 
1020 i=0:b=0:GOTO 1170 

1030 FOR i=0 TO 1:b=i+l:GOSUB 1170:NEXT:RE 
TURN 

1040 FOR i=0 TO 1:GOSUB 1170:NEXT:RETURN 
1050 b=l:GOTO 1040 

1060 b=l:c=0:d=2 

1070 FOR a=yx TO yx-4 STEP-2 

1080 GOSUB 1200:NEXT 

1090 b=3:i=l:a=yx-2:GOTO 1180 

1100 c=0:d=2:a=yx:b=l:GOSUB 1200 

1110 d=4:GOSUB 1190:GOSUB 1190 

1120 c=2:GOSUB 1190:GOTO 1090 

1130 CALL TeilClear,75,yx,5,33 

1140 CALL Kursiv,0,yx,75,(th+1)*h(art),ku- 

1:RETURN 


[1158] 

[1641] 

[1426] 

[775] 

[2409] 

[3034] 

[818] 

[117] 

[ 866 ] 

[ 886 ] 

[1649] 

[1344] 

[492] 

[ 886 ] 

[1030] 

[117] 

[1057] 

[1260] 

[971] 

[838] 

[961] 

[1510] 

[2059] 

[445] 

[436] 

[5048] 

[1099] 

[1353] 

[1945] 

[460] 

[3054] 

[2280] 

[117] 

[936] 

[2882] 

[3215] 

[1650] 

[1507] 

[1055] 

[1500] 

[1326] 

[555] 

[117] 

[419] 

[3761] 

[117] 

[176] 

[1548] 

[3015] 

[369] 

[1582] 

[1235] 

[1095] 

[1033] 

[555] 

[878] 

[2536] 

[2263] 

[1682] 

[1340] 

[1781] 

[1362] 

[1751] 

[1841] 

[1381] 

[1518] 

[77] 

[1985] 


1150 CALL ydehn,0,yx,80,ll,th-l:RETURN [1709] 
1160 b=tb-l:CALL xdehn,0,yx,40-20*b,33,b:R [1928] 
ETURN 


1170 a=yx [742] 

1180 CALL Schrift,i,a,8txt$,b:RETURN [2262] 

1190 a=a-2 [728] 

1200 FOR i=c TO d:GOSUB 1180:NEXT:RETURN [3726] 

1210 ' [117] 
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Listing—| 


1220 'Texteingabe [658] 

1230 t$="":WINDOW SWAP 1,0 [1074] 

1240 GOSUB 3160:GOSUB 3180 [2198] 

1250 IF z2=5 THEN LOCATE 1,6:PRINT [2725] 

1260 LOCATE zl+1,Z2:PRINT CHR$(143); [2265] 

1270 a$=INKEY$:IF a$=""THEN 1270 [1403] 

1280 IF a$=CHR$(13)THEN 1410 [730] 

1290 a=ASC(a$):IF a>127 OR a<32 THEN 1270 [2037] 

1300 a=LEN(t$) [1124] 

1310 IF a$=CHR$(127)THEN 1380 [817] 

1320 IF a>70 THEN 1270 [1014] 

1330 IF zl>35 THEN PRINT:Z2=MIN(Z2+1,5):zl [1952] 

=0 

1340 t$=t$+a$:zl=zl+l [1439] 

1350 LOCATE zl,z2:PRINT aS; [1231] 

1360 IF Zl>35 AND Z2=5 THEN PRINT:zl=0 [1626] 

1370 GOTO 1260 [351] 

1380 IF a=0 THEN 1270 ELSE IF zl=0 THEN Zl [2326] 

=36:Z2=Z2-1 

1390 LOCATE Zl,z2:PRINT" [1246] 

1400 zl=zl-l:t$=LEFT$(t$,a-l):GOTO 1260 [1561] 

1410 LOCATE Zl+1,Z2:PRINT" [1765] 

1420 z2=MIN(z2+l,5):zl=0 [577] 

1430 WINDOW SWAP 1,0 [1024] 

1440 IF t$o""THEN txt$="" : txt$=t$ :GOSÜB 9 [1542] 

60 

1450 GOTO 560 [373] 

1460 ' [117] 

1470 'WO [135-] 

1480 ON my GOTO 2150,1960,1960,1970,1970,1 [5790] 

970,1970,1970,1980,1980,1980,1990,1990,199 
0,2000,2000,2000 

1490 ’ [117] 

1500 'W1 [134] 

1510 ON rny GOTO 3130,2700,2760,2820,2820,2 [3913] 

840,2840,2220,2440,2480,2870,2610,2560,252 
0,3100 

1520 ' [117] 

1530 'W2 [133] 

1540 GOSUB 3240 [1168] 

1550 ON my GOTO 1610,1710,1750,1890,1930 [2222] 

1560 ' [117] 

1570 'W3 [132] 

1580 ON my GOTO 2030,2030,2030,2040 [1922] 

1590 ' [117] 

1600 'Button 1. [1682] 

1610 a$="Button ":GOSUB 1650 [I960] 

1620 a=0:IF ASC(n$)AND a$="J"THEN CALL loa [3495] 

,@a,buff,6678,@n$ELSE 560 

1630 IF a=l THEN 560 [824] 

1640 bd=0:GOSUB 3390:GOTO 560 [567] 

1650 GOSUB 3490:IF ASC(n$)THEN t$=a$+n$+" [3905] 

laden (j/n)?":GOSUB 3550 ELSE RETURN 
1660 a$=UPPER$ (INKEY$) :IF a$="J"OR a$="N''T [3190] 
HEN 3470 ELSE 1660 

1670 ' [117] 

i 1680 'Button S. [1804] 

1690 t$="Bitte deh Filenamen eingeben:" [3980] 

1700 GOSUB 3550:GOSUB 3580:GOTO 3470 [1886] 

1710 GOSUB 1690:IF LEFT$(t$,1)<>" "THEN CA [4079] 

LL sav,buff,6678,0,@t$ 

> 1720 GOTO 560 [373] 

1730 ' [117] 

1740 'Bild 1. [979] 

1750 a$="Bild ":GOSUB 1650 [1290] 

1760 a=0:IF ASC(n$)AND a$="J"THEN CALL loa [3340] 

,@a,&C000,&4000,@n$ELSE 560 

1770 IF a=l THEN 560 [824] 

1780 e=x:f=y:x=320:y=200 [2265] 

1790 rout=0:GOSUB 3790:x2=x:y2=y:rout=l:GO [4178] 
SUB 3790:xl=x:yl=y 

1800 IF x2<xl THEN xl=x2:x2=x [1391] 

1810 IF y2>yl THEN yl=y2:y2=y [2324] 

1820 IF(x2-Xl)>335 THEN x2=Xl+335 [392] 

1830 IF(yl-y2)>316 THEN y2=yl-316 [1498] 

1840 x=e:y=f [707] 

1850 GOSUB 2710:CLS:bd=0:GOSUB 3390 [2364] 

1860 bd=0:GOSUB 3390:GOTO 2090 [732] 

1870 ’ [117] 

1880 'Bild s. [973] 

1890 GOSUB 1690:IF LEFT$(t$,1)<>" "THEN CA [4500] 

LL sav,&COOO,&4000,0,@t$ 

1900 GOTO 560 [373] 

1910 ' [117] 

1920 'Cat [488] 

1930 GOSUB 3490:GOTO 560 [1330] 


1940 * [117] 

1950 'W0-Marker [199] 

1960 um=my-2:mnr=0:GOTO 3710 [1130] 

1970 art=my-4:mnr=l:GOTO 3710 [2138] 

1980 ku=my-9:mnr=2:GOTO 3710 [925] 

1990 th=my-12:mnr= 3:GOTO 3710 [1731] 

2000 tb=my-15:mnr=4:GOTO 3710 [1386] 

2010 ' [117] 

2020 'W3-'Drucker' [733] 

2030 qual=my-l:mnr=0:GOTO 3710 [2094] 

2040 GOSUB 3240:t$="Bitte X-Position angeb [4303] 
en (0-51):":GOSUB 3550 

2050 a=ml(11)\8+4:b=29-nl(11)\16 [1679] 

2060 LOCATE a,b:INPUT c:c=MAX(0,c):C=MIN(5 [2817] 

1, c) 

2070 CLS:bd=0:GOSUB 3390 [1089] 

2080 |HLOCATE,c:|HARDCOPY,quäl [1801] 

2090 GOSUB 810:IF txt$=""THEN 560 [2240] 

2100 LOCATE£1,1,1:PRINTEl,txt$ [1593] 

2110 z2=2+LEN(txt$)\36:GOSUB 960 [2617] 

2120 GOTO 560 [373] 

2130 ’ [117] 

2140 'Text einfuegen [1124] 

2150 IF txt$=""THEN 680 [1168] 


2160 GOSUB 3240:b=h(art)*(th+1):xl=0:yl=yx [2976] 
:y 2 =yx- 2 *b +2 

2170 CALL SchriftLen,@a,§txt$:x2=MIN(335,( [3427] 
a+j(art))*g(tb)+ku*b\2) 

2180 GOSUB 2710:IF(swp XOR um)THEN CALL sw [2707] 
apl 80 


2190 c=0:GOTO 2770 [721] 

2200 ' [H7] 

2210 'Punkte [135] 

2220 GOSUB 3240:CALL Cur,X,y,t,t [2119] 

2230 CALL Pointer,temp,201,§x,@y,x,y,t,t [1183] 
2240 a=fk(x\8,y\16-5):IF a THEN 600 [1943] 

2250 GOSUB 3180:GOTO 2230 [1380] 

2260 ' [H7] 

2270 'Xl/yl-x2/y2 [694] 

2280 rout=Box [182] 

2290 GOSUB 3240:CALL Cur,X,y,t,t [2119] 

2300 GOSUB 3360 [969] 

2310 a=fk(x\8,y\16-5):IF a THEN 600 [1943] 

2320 IF x>335 THEN 2400 [739] 

2330 GOSUB 3210 [959] 

2340 GOSUB 3310 [963] 

2350 a=fk(x\8,y\16-5):IF a THEN 600 [1943] 

2360 IF x>335 THEN 2400 [739] 

2370 CALL Cur,X,y,t,t [886] 

2380 ON routine GOSUB 2450,2490,2530,2570, [1989] 
2710 

2390 CALL Cur,x,y,t,t [886] 

2400 GOSUB 3180 [1148] 

2410 GOTO 2300 [351] 

2420 ' [117] 

2430 'Box [388] 

2440 routine=l:GOTO 2280 [777] 

2450 PLOT xl,yl:DRAW x2,yl:DRAW x2,y2:DRAW [3408] 
xl,y2:DRAW xl,yl:RETURN 

2460 ' [117] 

2470 'Line [835] 

2480 routine=2:rout=Linie:GOTO 2290 [954] 

2490 PLOT xl,yl:DRAW x2,y2:RETURN [1459] 

2500 ' [117] 

2510 'Ausschnitt loeschen [801] 

2520 routine=3:GOTO 2280 [869] 

2530 CALL Cgra,xl,yl,x2,y2:RETURN [1804] 

2540 ' [117] 

2550 'Ausschnitt invertieren [I486] 

2560 routine=4:GOTO 2280 [595] 

2570 IF yl=y2 THEN CALL Linie,xl,yl,x2,yl: [1978] 
RETURN 

2580 FOR i=yl TO y2 STEP SGN(y2-yl)*2:CALL [4352] 
Linie,xl,i,x2,i:NEXT:RETURN 
2590 ' [117] 

2600 'Radierg. [339] 

2610 GOSUB 3240 [1168] 

2620 CALL einst,624,96,15,14 [1302] 

2630 CALL Pointer,Mbox,18,@x,@y,x,y,t,t [1386] 
2640 GOSUB 850:CALL MboX,X,y,t,t [1683] 

2650 GOSUB 3180:CALL MboX,X,y,t,t [1568] 

2660 a=fk(X\8,y\16-5) : IF a THEN 610 [1941] 

2670 GOTO 2630 [357] 

2680 ' [117] 

2690 'Kopieren [961] 

2700 routine=5:GOTO 2280 [451] 
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2710 CALL Gracop,xl,yl,x2,y2:xa=xl:ya=yl:x 
b=x 2 :yb=y 2 

2720 IF swp THEN CALL Swapl80 

2730 FOR i=l TO 8:CALL Box,xl,y1,x2,y2:CAL 

L Frme:CALL Frme:NEXT:RETURN 

2740 ' 

2750 'Einsetzen 
2760 GOSUB 3240:c=ov 

2770 a=ABS(xa-xb):b=ABS(ya-yb):CALL einst, 
335-a,82+b,a,b 

2780 CALL Pointer,Mbox,6,@x,0y,x,y,t,t 
2790 IF c THEN CALL Cgra,x,y,x+a,y-b 
2800 CALL Grahol,x,y 
2810 GOSUB 3180:GOTO 560 

2820 swp=my-4:IF PEEK(mark(w))=my-l THEN 6 
80 

2830 CALL swapl80:mnr=0:GOTO 3710 
2840 ov=(my-6)XOR l:mnr=l:GOTO 3710 
2850 ' 

2860 'Zoom 

2870 GOSUB 3240:t=l 

2880 CALL winopen,50,376,4 

2890 PRINT CHR$(23)CHR$(1); 

2900 CALL Cur,x,y,t,t 

2910 CALL einst,639,0,0,0:CALL Pointer,tem 
p,225,@x,@y,x,y,t,t 

2920 IF PEER(&AEFF)THEN c=0:d=0 
2930 IF X<336 THEN 2960 

2940 e=x\8:f=(y-4)\16:IF e>50 AND e<75 AND 
f<23 AND f>6 THEN 3030 ELSE IF e>49 AND e 
<76 AND f<24 AND f>5 THEN 2950 ELSE a=fk(x 
\8,y\16-5):IF a THEN 3070 
2950 GOTO 2910 

2960 CALL einst,312,112,23,30 

2970 GOSUB 3210:IF t THEN 3000 

2980 FOR i=l TO 30:CALL GK,@k:IF(k AND 16) 

THEN x=xl:y=yl 

2990 NEXT 

3000 CALL Pointer,Zoomviereck,6,@x,§y,x,y, 
t,t:t=0 

3010 CALL zoomviereck,x,y,t,t:CALL zoomvie 
reck,x,y,t,t 

3020 xl=x:yl=y:GOSUB 3210:GOTO 2910 
3030 IF t OR(c=e AND d=f)THEN 2910 
3040 j=TEST(xl+e-51,yl-2*(22-f)):IF c=0 AN 
D d=0 THEN b=j XOR 1 

3050 IF boj THEN PLOTR 0,0:CALL InvBalk,e 
,f*16+16,1 

3060 c=e:d=f:GOTO 2910 

3070 CALL Cur,x,y,t,t:CALL Winclose:PRINT 
CHR$(23)CHR$(0);:GOTO 610 
3080 ' 

3090 'Arbeitsflaeche loeschen 

3100 GOSUB 3240:CALL TeilClear,0,398,42,15 

9:GOTO 560 

3110 ’ 

3120 'UnDo 

3130 bd=0:GOSUB 3390:GOTO 680 
3140 ' 

3150 'Clearlnput 

3160 WHILE INKEY$<>"" :WEND:RETURN 
3170 ' 

3180 CALL GK,@k:IF k AND 16 THEN 3180 
3190 RETURN 
3200 ' 

3210 GOSUB 3180 

3220 CALL Cur,x,y,t,t:RETURN 

3230 ' 

3240 FOR i=l TO 4 
3250 FOR j=l TO 2 

3260 CALL Invbalk,c,mgy,d:CALL Frme:CALL F 
rme 

3270 NEXT j,i 
3280 GOSUB 940 
3290 bd=l:GOTO 3390 
3300 ' 

3310 xl=x:yl=y:x2=x:y2=y 

3320 CALL Pointer,rout,135,§x,@y,xl,yl,x2, 
y 2 

3330 xl=x:yl=y 
3340 RETURN 
3350 ' 

3360 call einst,639,o,o,o:CALL Pointer,tem 

p,193,@x,@y,x,y,t,t 

3370 RETURN 

3380 ' 


[1702] 

[1509] 

[3629] 

[117] 

[1603] 

[1485] 

[3911] 

[1999] 

[415] 

[585] 

[1309] 

[3609] 

[803] 

[1917] 

[117] 

[837] 

[1378] 

[685] 

[1919] 

[ 886 ] 

[4434] 

[2016] 

[1306] 

[10433] 


[389] 

[1295] 

[846] 

[2179] 

[350] 

[3439] 

[2925] 

[1980] 

[2024] 

[3199] 

[3053] 

[849] 

[3137] 

[117] 

[831] 

[2364] 

[117] 

[354] 

[655] 

[117] 

[1483] 

[2193] 

[117] 

[813] 

[555] 

[117] 

[1148] 

[849] 

[117] 

[450] 

[615] 

[3202] 

[396] 

[824] 

[1138] 

[117] 

[1242] 

[1889] 

[650] 

[555] 

[117] 

[36101 


[555] 

[117] 


3390 CALL Copy,0,398,42,159,bd 
3400 RETURN 
3410 ' 

3420 a=10 

3430 FOR i=0 TO a:CALL Box,ml(i) ,nl (i) ,m2 ( 
i),n2(i):NEXT:RETURN 

3440 a=ll:GOSUB 3430:GOSUB 3420:CALL Winop 
en,ml(11)\8,nl(ll),5:RETURN 
3450 a=10 

3460 FOR i=a TO 0 STEP-1:CALL Box,ml(i),nl 
(i),m2(i),n2(i):NEXT:RETURN 
3470 CALL Winclose:GOSUB 3450:a=ll:GOTO 34 
60 

3480 ' 

3490 t$=d$(my-1):CALL SchriftLen,8a,8t$ 
3500 CALL Winopen,cpx,cpy,6 
3510 CALL Schrift,cpx*8+(108-a)\2,cpy-8,8t 
$, 1 

3520 t$="-" :CALL Schrift,cpx* 

8+3,cpy-24,8t $,1 

3530 CALL Catalog,8n$:CALL Winclose:GOTO 3 

180 

3540 ' 

3550 GOSUB 3440:CÄLL SchriftLen,8a,@t$:a=( 
m2(11)-ml(11)-a)\2+ml(11):b=nl(11)-24 
3560 CALL Schrift,a,b,8t$,1:RETURN 
3570 ' 

3580 a=ml(11)\8+4:b=29-nl(11)\16 

3590 t$ = "" :LOCATE a,b:PRINT".":G 

OSUB 3180 

3600 WHILE INKEY$<>"'':WEND 
3610 FOR i=l TO 11 

3620 a$=UPPER$(INKEYS):IF a$=""THEN 3620 E 
LSE c=ASC(a$) 

3630 IF c=127 THEN i=MAX(i-2,0):t$=LEFT$(t 

$,MAX(LEN(t$) — 1,0) ) :GOTO 3670 

3640 IF c=13 THEN i=ll:GOTO 3670 

3650 IF(c>64 AND C<91)OR(c>47 AND C<58)THE 

N 3660 ELSE 3620 

3660 t$=t$+a$ 

3670 LOCATE a,b:PRINT t$+STRING$(11-LEN(t$ 
),46) 

3680 NEXT:t$=t$+STRING$(11-LEN(t$),32):t$= 
LEFT$(t$,8)+"."+RIGHTS(t$,3):RETURN 
3690 ' 

3700 'Marker 

3710 a=PEEK(mark(w)+mnr)+l:lF a=my THEN 37 

60 ELSE POKE mark(w)+mnr,my-l 

3720 i=mp(w):a=(my-a)*l6+mgy 

3730 CALL TeilClear,i,a,1,8 

3740 MOVE i*8,mgy 

3750 PRINT CHR$(23)CHRS(1)CHR$(5)CHR$(6)CH 
R$(23)CHR$(0); 

3760 GOSUB 3180:GOTO 680 
3770 ' 

3780 'crossCur 

3790 c=x:d=y:GOSUB 3910 

3800 a=8:b=8 

3810 CALL GK,8k:IF(k AND 31)=0 THEN 3800 
3820 IF k AND 1 THEN y=MIN(y+b\4,398) 

3830 IF k AND 2 THEN y=MAX(y-b\4,0) 

3840 IF k AND 4 THEN x=MAX(x-a\8,0) 

3850 IF k AND 8 THEN X=MIN(x+a\8,639) 

3860 GOSUB 3910 

3870 IF k AND 16 THEN 3180 

3880 C=x:d=y:GOSUB 3910 

3890 a=MIN(a+2,64):b=MIN(b+2,32) 

3900 IF k AND 32 THEN CALL GK,8k:IF(k AND 
31)THEN 3900 ELSE 3800 ELSE 3810 
3910 IF rout THEN CALL Box,c,d,x2,y2 ELSE 
CALL Linie,0,d,639,d:CALL Linie,c,0,c,398 
3920 RETURN 


[678] 

[555] 

[117] 

[542] 

[4254] 

[4327] 

[542] 

[3465] 

[1626] 

[117] 

[2378] 

[791] 

[1232] 

[2074] 

[1736] 

[117] 

[5320] 

[753] 

[117] 

[1679] 

[2378] 

[1786] 

[314] 

[3240] 

[3612] 

[ 1122 ] 

[3150] 

[720] 

[2530] 

[3289] 

[117] 

[929] 

[4941] 

[1042] 

[67] 

[619] 

[3381] 

[1079] 

[117] 

[377] 

[1041] 

[606] 

[1155] 

[1910] 

[1175] 

[1288] 

[1577] 

[1003] 

[759] 

[1041] 

[2341] 

[4694] 

[4593] 

[555] 


10 'Anpassungsprogramm 

20 DEFINT a-z 

30 tabs.tart=&8F9l 

40 MEMORY &8CFF:LOAD"hc",&8DO0 

50 FOR i=tabstart TO tabstart+56 

60 READ a:POKE i,a 

70 NEXT 

80 SAVE"hc",b,&8D00,714 
90 END 
100 ' 

lio 'Grafikmodus 120 Pixel/Inch 
120 DATA 27,42,1,0,0,0,0,0,0,0 


,3,4 


[1419] 

[553] 

[1397] 

[923] 

[2087] 

[1743] 

[350] 

[1158] 

[ 110 ] 

[117] 

[1480] 

[1539] 
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Listing—i 


130 * 

140 'Zeilenvorschub auf 17/216 Inch + Line 
Feed 

150 DATA 27,51,17,10,0,0,0,0,0,0 ,4 
160 ' 

170 'Zeilenvorschub auf 1/216 Inch + LineF 
eed 

180 DATA 27,51,1,10,0,0,0,0,0,0 ,4 

190 ' 

200 'Zeilenvorschub auf 20/216 Inch + Line 
Feed 

210 DATA 27,51,20,10,0,0,0,0,0,0 ,4 
220 ' 

230 'Zeilenvorschub auf 42/216 Inch 
240 DATA 27,51,42,0,0,0,0,0,0,0 ,3 


[117] 

[2265] 

[1574] 

[117] 

[1628] 

[1225] 

[117] 

[2608] 

[1682] 

[117] 

[1214] 

[822] 


[2451] 


20 '= Dieser Datalader erzeugt die Datei 
G.BIN' = 


40 MODE 2 
50 DEFINT a-Z 
60 RESTORE 200 
70 zeile=200 

80 b=10:start=&6000:length=4049:n$="G.BIN" 
90 MEMORY start-l:z=length\b-((length MOD 
b)>0) 

100 FOR i=start TO start+(z-l)*b STEP b 

110 FOR j=i TO i+b-l 

120 READ a$:a=VAL("&"+a$):POKE j,a 

130 pr=(pr+(j-i+i)*a)MOD 4096 

140 NEXT 

150 READ a$ 

160 IF VAL( "&"+a$)opr THEN PRINT"Pruefs 

ummenfehler in "zeile:STOP 
170 zeile=zeile+l 
180 NEXT 

190 SAVE n$,b,start,length:END 

200 DATA C3,4E,46,C3,88,46,C3,53,47,C3,B93 

201 DATA 84,4B,C3,FA,47,C3,A4,48,C3,34,872 

202 DATA 49,03,15,4A,C3,2F,4A,C3,Fl,51,452 

203 DATA 03,80,4A,C3,4C,4A,C3,12,49,03,D4B 

204 DATA D3,50,C3,E3,49,C3,8C,4D,C3,99,DA3 

205 DATA 4E,C3,9F,4E,C3,1B,4F,C3,B6,4F,8BA 

206 DATA C3,02,50,C3,FA,40,C3,81,4D,C3,7D7 

207 DATA 2D,4E,C3,4E,50,C3,8F,50,3A,A8,146 

208 DATA BC,1F,30,05,21,35,B6,18,03,21,BE6 

209 DATA EB,B4,22,D1,56,06,00,DD,21,51,EF0 

210 DATA 56,78,17,CB,19,17,CB,19,17,CB,3C0 

211 DATA 19,17,CB,19,17,CB,19,17,CB,19,585 

212 DATA 17,CB,19,17,CB,19,78,32,84,46,89E 

213 DATA DD,71,00,10,DE,C9,CD,AB,52,7A,642 

214 DATA BC,38,OA,20,04,7B,BD,38,04,EB,B3F 

215 DATA 78,41,4F,AF,ED,52,E5,05,47,7D,A3B 

216 DATA 32,13,47,32,48,47,7C,32,17,47,7CB 

217 DATA CD,78,52,22,DF,46,32,E4,46,El,403 

218 DATA 5C,62,7B,BD,38,06,EB,01,68,52,8D5 

219 DATA 18,03,01,4F,52,ED,43,OA,47,ED,F40 

220 DATA 43,3F,47,7D,93,32,FA,46,6F,Dl,BEC 

221 DATA 37,ED,5A,AF,B5,28,01,24,7C,FD,5A5 

222 DATA 67,45,21,00,00,AF,B2,OE,00,28,1F1 

223 DATA 36,CB,3A,CB,1B,7E,A9,77,CB,09,AE6 

224 DATA 30,01,23,10,03,FD,25,C8,7B,D6,5B0 

225 DATA 00,5F,30,ED,7A,D6,01,57,30,E7,F8D 

226 DATA 18,03,7E,A9,77,CD,00,00,10,03,B98 

227 DATA FD,25,08,7B,C6,00,5F,7A,CE,00,2A8 

228 DATA 57,30,EB,18,CE,3A,FA,46,57,7B,CC5 

229 DATA BA,38,29,CB,1B,7E,A9,77,CB,09,4E5 

230 DATA 30,01,23,10,03,FD,25,C8,7B,92,D07 

231 DATA 5F,30,EE,18,03,7E,A9,77,CD,00,37F 

232 DATA 00,10,03,FD,25,C8,7B,C6,00,5F,A48 

233 DATA 30,EF,18,D9,AF,92,1F,18,F4,CD,908 

234 DATA AB,52,AF,ED,52,B4,B5,CA,88,46,8B1 

235 DATA 78,91,CA,88,46,CD,EE,52,78,91,7E9 

236 DATA 32,EB,47,32,82,47,FD,69,48,AF,353 

237 DATA 47,ED,52,23,B5,28,01,24,E5,CD,CA5 

238 DATA 78,52,FD,El,4F,06,00,E5,CD,4F,75E 

239 DATA 52,10,02,18,08,7E,A9,77,CD,4F,DF4 

240 DATA 52,10,F8,EB,E1,FD,45,7E,A9,77,FB7 

241 DATA 1A,A9,12,CB,09,30,10,23,13,05,837 

242 DATA 78,E6,F8,20,10,FD,7C,3D,20,OB,AFB 


[513] 

[553] 

[563] 
[653] 
[2347] 
[2833] 

[2829] 

[857] 

[1247] 

[977] 

[350] 

[309] 

[5239] 

[564] 
[350] 
[2973] 
[1670] 
[1139] 
[1886] 
[2143] 
[ 2121 ] 
[1978] 
[1483] 
[2124] 
[1118] 
[1468] 
[1958] 
[1053] 
[1964] 
[1263] 
[1778] 
[1602] 
[1640] 
[1204] 
[1865] 
[1846] 
[1805] 
[2107] 
[1253] 
[1680] 
[1314] 
[1389] 
[1345] 
[1690] 
[1108] 
[1585] 
[1369] 
[ 2000 ] 
[1642] 
[1614] 
[1529] 
[1595] 
[2077] 
[967] 
[1745] 
[1734] 
[2369] 
[1398] 
[1705] 


243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


78.18.25.10, E4,FD,25,20,EO,18,187 [1303] 
2F,78,E6,07,FD,6F,FD,7C,3D,1F,B25 [2324] 

CB,18,1F,CB,18,CB,38,7E,2F,77,0A8 [1390] 
1A,2F,12,23,13,10,F6,FD,7D,47,86E [1767] 
B7,20,05,2B,OE,01,18,00,7E,A9,670 [2151] 
77,1A,A9,12,CB,19,10,F6,CB,11,DE4 [1453] 
06,00,CD,4F,52,05,C8,7E,A9,77,744 [2217] 
CD,4F,52,10,F8,C9,CD,CA,52,DD,AE2 [1591] 
4E,00,DD,7E,04,87,CB,19,30,07,B48 [1742] 
FD,21,OA,53,87,18,04,FD,21,OE,ADD [2003] 
53,85,5F,7C,CE,00,57,1B,DD,46,107 [1632] 
02,DD,4E,04,7D,81,6F,30,01,24,F2E [2328] 
2B,E5,D5,C5,DD,46,00,04,CB,20,52E [2105] 
C5,4E,AF,CB,19,1F,CB,19,1F,DD,D0D [1777] 
CB,00,46,20,08,CB,19,1F,CB,19,DD8 [2074] 
1F,07,07,07,07,32,4E,48,FD,7E,1B8 [1614] 
00,12,1B,10,DF,2B,CI,OD,20,D2,6CD [2271] 
CI,Dl,El,EB,CD,4F,52,EB,CD,4F,93B [1861] 

52.10, C2,C9,1A,4F,13,CD,06,B9,FDO [1779] 
1A,FE,20,38,OB,CD,87,48,13,23,025 [2547] 
0D,20,F3,C3,09,B9,13,85,6F,30,54E [2340] 
EB,24,18,E8,CD,DO,52,D5,E5,5F,7F3 [2415] 
AF,CB,23,17,CB,23,17,CB,23,17,8E0 [1171] 
C6,38,57,06,08,1A,77,CD,4F,52,B9B [1759] 

13.10, F8,E1,D1,C9,26,00,DD,6E,820 [1419] 
02,29,E5,AF,EB,DD,6E,06,DD,66,697 [2529] 
07,ED,52,23,23,44,4D,CD,DO,52,F48 [2067] 
EB,E1,44,4D,29,DD,7E,00,1F,30,059 [1310] 
02,09,AF,44,4D,DD,66,07,DD,6E,94C [1905] 
06,ED,42,23,23,44,4D,CD,DO,52,ICC [1397] 
EB,DD,4E,04,DD,46,02,DD,7E,00,6C4 [1485] 
IF,30,OF,CD,02,49,CD,02,49,CD,CA2 [1518] 
02,49,CD,68,52,10,F2,C9,CD,02,766 [1847] 
49,CD,02,49,CD,68,52,10,F5,C9,419 [1647] 
C5,E5,D5,06,00,ED,BO,D1,El,CI,998 [2387] 
EB,CD,68,52,EB,C9,DD,2B,DD,2B,8C0 [1008] 
CD,CA,52,DD,4E,04,DD,46,02,E5,268 [1459] 
C5,51,48,AF,42,E5,77,23,10,FC,CCC [2193] 
El,CD,4F,52,OD,20,F2,CI,El,C9,EE6 [1361] 
11,FC,FF,DD,19,CD,CA,52,DD,7E,172 [1499] 
04,17,EB,21,AB,53,85,6F,30,01,307 [1736] 
24,4E,23,46,EB,CD,F9,49,CD,IF,02F [2271] 
49,C5,05,78,32,EB,47,32,82,47,546 [1561] 
AF,CB,21,17,CB,21,17,CB,21,17,60F [1125] 
47,28,01,04,FD,60,FD,69,OE,80,D9B [1338] 
CD,81,47,DD,7E,06,DD,46,07,D6,723 [2161] 
08,4F,30,01,05,DD,70,07,DD,71,DIB [830] 
06,DD,34,08,DD,7E,04,17,21,9D,EFB [1351] 
53,85,6F,30,01,24,5E,23,56,CD,1F4 [1247] 
DO,52,1A,47,13,C5,E5,CD,66,48,CEO [2108] 
E1,7D,C6,50,6F,30,01,24,C1,10,E28 [2058] 
FO,EB,CI,DD,7E,08,81,D6,03,DD,C3F [2231] 

77,08,7E,B7,C8,47,23,CD,06,B9,57B [1680] 

C5,E5,DD,46,07,7E,17,17,17,17,IDE [1625] 
4F,DD,7E,06,30,01,05,91,4F,30,FC1 [2534] 
01,05,3E,06,CD,84,48,El,23,CI,97C [2285] 
10,E0,C3,09,B9,CD,CA,52,11,BF,649 [1714] 
72,DD,46,02,DD,4E,04,DD,7E,00,AE6 [1491] 
IF,30,2A,C5,E5,18,OC,E5,C5,22,3BD [2050] 
3F,57,ED,43,41,57,11,3D,93,C5,B08 [1633] 
E5,06,00,ED,BO,El,CI,CD,4F,52,AOD [1499] 
10,F3,C1,E1,C9,2A,3F,57,ED,4B,667 [1310] 
41,57,11,3D,93,C5,E5,EB,06,00,DCB [2125] 
ED,B0,EB,El,CI,CD,4F,52,10,Fl,DA3 [2598] 
C9,11,FC,FF,DD,19,CD,CA,52,DD,1D4 [1522] 
56,04,0E,08,42,E5,7E,2F,77,23,39B [2305] 
10,FA,El,CD,4F,52,OD,20,Fl,C9,09B [1661 ] 
DD,66,01,DD,6E,00,46,23,5E,23,F8F [1856] 
56,21,00,00,1A,FE,20,D8,D6,20,703 [1820] 
E5,21,27,53,85,6F,30,01,24,7E,6A6 [1740] 
E1,E6,0F,85,6F,30,01,24,13,10,151 [2322] 
E5,EB,DD,66,03,DD,6E,02,73,23,5F3 [2227] 
72,C9,DD,CB,00,16,CD,AB,52,79,OCD [876] 
B7,28,10,FE,02,38,OA,28,04,3E,B6C [2094] 
AE,18,06,3E,A6,18,02,3E,B6,32,B7A [1492] 
63,4B,32,07,4B,EB,E5,48,06,00,CD7 [2301] 
CD,86,52,32,C2,4A,EB,El,D5,7E,FD2 [1637] 
23,5E,23,56,EB,11,D3,56,4F,06,2E7 [1458] 
00,ED,BO,El,11,D3,56,OE,00,47,52C [1203] 
CD,06,B9,78,F5,1A,E6,7F,FE,20,3E5 [2310] 
38,41,D5,E5,C5,21,27,53,4F,D6,E1D [2217] 
20,5F,16,00,19,7E,69,62,4A,06,B73 [2112] 
38,29,29,29,09,EB,CI,47,El,CD,A35 [1544] 
17,4B,D1,13,F1,3D,20,D4,CD,09,2D3 [1344] 
B9,79,B7,C8,FD,21,37,57,06,08,439 [2447] 
FD,7E,00,FD,36,00,00,AE,77,CD,CD5 [1786] 
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329 DATA 4F,52,FD,23,10,F0,C9,Fl,CD,09,BDI [1279] 

330 DATA B9,18,E0 / FD / 21 / 37,57,3E,08 / E5 / 2C8 [1440] 

331 DATA F5,D5,78,E6,F0,0F,1F,1F,1F,EE,BA5 [2043] 

332 DATA 03,32,2E,4B,1A,18,FE,17,17,17,833 [1810] 

333 DATA 57,79 , EE, 07,5F, 87,83,32', 3E, 4B ,BA8 [2257] 

334 DATA AF,18,FE,CB,3A,1F,CB,3A,1F,CB,4EB [1881] 

335 DATA 3A,1F,CB,3A,1F,CB,3A,1F,CB,3A,9FE [2220] 

336 DATA 1F,CB,3A,1F,5F,FD,7E,00,B2,57,ICO [1137] 

337 DATA 78,E6,OF,81,E6,08,28,05,7A,AE,739 [1547] 

338 DATA 77,18,01,5A,FD,73,00,CD,4F,52,D51 [2055] 

339 DATA Dl,13,FD,23,Fl,3D,20,A8,El,78,AA7 [1319] 

340 DATA E6,OF,81,CB,5F,28,03,E6,07,23,C07 [1442] 

341 DATA 4F,C9,AF,32,FF,AE,ED,5B,CF,55,DB8 [2279] 

342 DATA DD,CB,OC,6E,20,03,11,10,08,DD,C9A [2125] 

343 DATA CB,OC,76,CC,E7,4C,CD,4A,4D,4F,610 [2208] 

344 DATA E6,OF,20,OE,11,10,08,CB,61,20,39A [2233] 

345 DATA 07,3E,01,32,FF,AE,18,EA,CD,02,D38 [1835] 

346 DATA 53,CD,E7,4C,DD,66,05,DD,6E,04,4D0 [2160] 

347 DATA CB,41,28,17,7B,CB,3F,CB,3F,CB,050 [3000] 

348 DATA 3F,85,6F,30,01,24,7C,B7,28,07,F4D [2127] 

349 DATA 7D,FE,8F,38,02,2E,8E,CB,49,28,3CC [2221] 

350 DATA 18,43,CB,38,CB,38,CB,38,7D,90,E44 [2231] 

351 DATA 6F,30,01,25,24,25,20,07,7D,FE,0A5 [1924] 

352 DATA 54,30,02,2E,52,DD,74,05,DD,75,88A [1693] 

353 DATA 04,DD,66,07,DD,6E,06,CB,51,28,D66 [1355] 

354 DATA 15,42,CB,38,CB,38,CB,38,7D,90,7D9 [1678] 

355 DATA 6F,30,01,25,7C,FE,FF,20,03,21,AFD [1543] 

356 DATA 00,00,CB,59,28,18,7A,CB,3F,CB,3ED [1299] 

357 DATA 3F,CB,3F,85,6F,30,01,24,7C,FE,B4D [2272] 

358 DATA 02,38,07,7D,FE,72,38,02,2E,71,D0A [2543] 

359 DATA DD,74,07,DD,75,06,CB,61,28,61,28C [1299] 

360 DATA CD,C8,4C,ED,53,CF,55,EB,CD,59,454 [2137] 

361 DATA 4E,DD,56,07,DD,5E,06,DD,66,OB,915 [2297] 

362 DATA DD,6E,OA,73,23,72,DD,66,09,DD,241 [1016] 

363 DATA 6E,08,DD,7E,04,E6,FE,DD,77,04,EF7 [2403] 

364 DATA 77,23,DD,46,05,70,2B,DD,7E,OC,317 [1674] 

365 DATA E6,18,CA,F5,4C,7A,FE,01,38,09,803 [2129] 

366 DATA C2,F5,4C,7B,FE,50,D2,F5,4C,C5,C19 [2337] 

367 DATA 4E,CB,38,CB,19,DD,CB,OC,5E,28,247 [2545] 

368 DATA 05,CD,78,52,B6,77,DD,CB,OC,66,DB9 [2158] 

369 DATA C4,FB,4D,CI,11,10,08,CD,E7,4C,6CA [1399] 

370 DATA CB,18,30,06,CD,02,53,CD,C8,4C,F27 [796] 

371 DATA CD,C8,4C,CB,69,CA,9C,4B,11,10,432 [2094] 

372 DATA 08,CD,4A,4D,CB,6F,CA,9C,4B,E6,47C [1942] 

373 DATA 1F,20,F4,C3,9C,4B,14,7A,FE,40,F5B [2125] 

374 DATA 38,01,15,IC,7B,FE,40,D8,ID,C9,9FE [2244] 

375 DATA C5,D5,E5,DD,66,OF,DD,6E,OE,CD,6E3 [1749] 

376 DATA E6,4C,El,D1,CI,C9,E9,DD,46,OC,6F8 [2334] 

377 DATA CB,18,DC,FA,4C,CB,18,DA,D6,4C,6A3 [2078] 

378 DATA C9,DD,CB,OC,7E,C8,E5,D5,C5,DD,F57 [2365] 

379 DATA 7E,05,DD,4E,04,1F,CB,19,DD,56,5F2 [2919] 

380 DATA 07,DD,5E,06,06,00,CD,86,52,4F,8C6 [1713] 

381 DATA CD,4F,52,FD,21,87,53,06,OB,C5,D74 [1435] 

382 DATA 41,FD,7E,00,FD,5E,01,16,00,04,92D [1311] 

383 DATA 05,28,07,1F,CB,1B,CB,1A,10,F9,F53 [1758] 

384 DATA AE,77,23,7B,AE,77,23,7A,AE,77,8FD [1154] 

385 DATA 2B,2B,CD,4F,52,FD,23,FD,23,CI,64B [1731] 

386 DATA 10,D5,CI,Dl,El,C9,E5,AF,FD,2A,CEB [3010] 

387 DATA Dl,56,FD,66,00,CB,IC,17,CB,IC,170 [2193] 

388 DATA 30,02,CB,DF,CB,IC,30,02,CB,CF,CB9 [1974] 

389 DATA FD,CB,01,46,28,02,CB,D7,FD,CB,E53 [2139] 

390 DATA 02,56,28,02,CB,E7,FD,B6,09,FD,FBO [1786] 

391 DATA B6,06,67,FD,7E,02,E6,20,B4,E1,E85 [1901] 

392 DATA C9,DD,66,01,DD,6E,00,CD,4A,4D,527 [2608] 

393 DATA 77,C9,CD,52,4E,3A,43,57,EE,01,AB6 [1794] 

394 DATA 32,43,57,28,5F,CD,AB,52,EB,48,60C [2036] 

395 DATA 06,00,CD,78,52,EB,4F,2A,3F,57,A8B [1635] 

396 DATA 23,CD,5D,52,06,10,D5,C5,06,18,C46 [1535] 

397 DATA 1A,Al,3E,01,28,01,2F,E5,FD,69,49E [1884] 

398 DATA 4F,71,CD,4F,52,71,CD,4F,52,71,D11 [2222] 

399 DATA CD,4F,52,71,CD,4F,52,71,CD,4F,722 [1750] 

400 DATA 52,71,CD,4F,52,71,CD,4F,52,3E,D9A [1553] 

401 DATA FE,A9,77,FD,4D,El,23,CB,09,30,588 [1176] 

402 DATA 01,13,10, CA, CI, Dl, EB, CD, 4F, 52,482 [1558.] 

403 DATA EB,7D,C6,38,6F,30,01,24,10,B6,5B7 [2073] 

404 DATA C3,53,47,FD,21,IE,53,CD,86,52,DD9 [1422] 

405 DATA 06,08,B7,28,1B,32,OC,4E,FD,7E,2FC [304T] 

406 DATA 00,57,2F,5F,E5,7B,A6,77,23,36,8A7 [2133] 

407 DATA 00,23,7A,A6,77,E1,CD,4F,52,10,021 [1076] 

408 DATA EF,C9,4F,71,23,71,2B,CD,4F,52,638 [1309] 

409 DATA 10,F7,C9,DD,66,07,DD,6E,06,22,B32 [1349] 

410 DATA 48,57,DD,66,05,DD,6E,04,22,4A,CD6 [1680] 

411 DATA 57,DD,66,03,DD,6E,02,22,44,57,DF2 [1497] 

412 DATA DD,66,01,DD,6E,00,22,46,57,C9,33F [163Q] 

413 DATA AF,DD,56,07,DD,5E,06,2A,48,57,4B3 [1735] 

414 DATA ED,52,30,04,ED,5B,48,57,2A,44,679 [1783] 


415 DATA 57,DD,72,07,DD,73,06,19,DD,74,E3E [2112] 

416 DATA 03,DD,75,02,DD,56,05,DD,5E,04,238 [1568] 

417 DATA 2A,4A,57,ED,52,38,04,ED,5B,4A,834 [1776] 

418 DATA 57,AF,2A,46,57,EB,DD,74,05,DD,52E [1192] 

419 DATA 75,04,ED,52,DD,74,01,DD,75,00,BCF [1962] 

420 DATA C9,CD,52,4E,C3,53,47,CD,EE,52,AOC [2336] 

421 DATA FD,21,1E,53,7D,E6,07,32,4C,57,C99 [2561] 

422 DATA 3C,32,B2,4E,FD,7E,00,2F,32,E8,4B6 [3011] 

423 DATA 4E,CD,F8,4E,22,DO,4E,CD,86,52,OBC [1247] 

424 DATA 32,4D,57,32,C8,4E,FD,7E,00,32,5E0 [2127] 

425 DATA D6,4E,11,50,57,01,00,00,C5,E5,A5D [2208] 

426 DATA 7E,E6,01,12,05,28,OC,23,13,05,044 [1334] 

427 DATA 28,06,7E,12,13,23,10,FA,7E,E6,915 [1809] 

428 DATA 01,12,13,El,CD,4F,52,C1,OD,20,CCD [1414] 

429 DATA DF,ED,53,4E,57,C9,D5,CB,3A,CB,E43 [2571] 

430 DATA 1B,CB,3A,CB,1B,CB,3A,CB,1B,7D,6DA [1157] 

431 DATA CB,3C,1F,CB,3C,1F,CB,3C,1F,93,BCE [2100] 

432 DATA 3C,67,78,91,3C,6F,48,06,00,Dl,E9C [1727] 

433 DATA C9,CD,AB,52,06,00,DD,21,50,57,1AF [2103] 

434 DATA CD,86,52,4F,3A,4D,57,91,28,OF,191 [2081] 

435 DATA 38,06,11,68,4F,2B,18,OA,11,8D,D48 [1955] 

436 DATA 4F,ED,44,18,03,11,63,4F,ED,53,1D2 [1914] 

437 DATA 52,4F,ED,4B,D0,4E,2F,E6,07,57,8B7 [1793] 

438 DATA C5,E5,DD,5E,00,CD,63,4F,DD,23,273 [2390] 

439 DATA 10,F6,El,23,CD,4F,52,2B,CI,OD,85A [1484] 

440 DATA 20,EA,C9,7B,B6,77,23,C9,7A,87,5BA [1670] 

441 DATA 82,32,70,4F,AF,18,15,CB,23,17,633 [1751] 

442 DATA CB,23,17,CB,23,17,CB,23,17,CB,B50 [1504] 

443 DATA 23,17,CB,23,17,CB,23,17,B6,77,07C [2048] 

444 DATA 23,7B,B6,77,C9,7A,87,87,32,97,BED [1670] 

445 DATA 4F,7B,IE,00,18,EE,CB,3F,CB,1B,34E [2032] 

446 DATA CB,3F,CB,1B,CB,3F,CB,1B,CB,3F,CD3 [2509] 

447 DATA CB,1B,CB,3F,CB,1B,CB,3F,CB,1B,580 [2276] 

448 DATA CB,3F,CB,1B,18,DO,2A,4E,57,01,59D [2079] 

449 DATA 50,57,54,5D,DD, 60,DD,69,AF,ED,858 [2584] 

450 DATA 42,23,CB,3C,CB,1D,40,45,28,01,684 [2223] 

451 DATA OC,1B,FD,21,51,56,DD,7E,00,32,9C9 [2059] 

452 DATA DC,4F,FD,6E,00,1A,32,E3,4F,FD,5AD [1364] 

453 DATA 66,00,7D,12,DD,74,00,DD,23,1B,80C [853] 

454 DATA 10,E6,OD,20,E3,21,4C,57,11,4D,82B [1475] 

455 DATA 57,7E,EE,07,47,1A,EE,07,77,78,DFC [1508] 

456 DATA 12,C9,CD,EE,52,FD,21,IE,53,7D,6EB [2443] 

457 DATA E6,07,3C,32,12,50,FD,7E,00,32,864 [1157] 

458 DATA 3D,50,32,49,50,CD,F8,4E,E5,CD,AAO [2568] 

459 DATA 86,52,CI,32,26,50,FD,7E,00,2F r E24 [1171] 

460 DATA 5F,50,42,E5,05,28,18,7E,A3,77,37F [2051] 

461 DATA 23,05,28,05,AF,77,23,10,FC,7E,9AA [1476] 

462 DATA E6,00,77,El,CD,4F,52,OD,20,E4,202 [2060] 

463 DATA C9,7B,F6,01,A6,77,18,FO,CD,BF,382 [2279] 

464 DATA 50,CD,77,BC,30,23,E6,02,28,1F,47B [1839] 

465 DATA 78,Bl,28,1B,DD,66,03,DD,6E,02,8DD [1812] 

466 DATA ED,42,38,11,DD,66,05,DD,6E,04,DOO [1994] 

467 DATA CD,83,BC,30,06,CD,7A,BC,C3,54,AOC [1430] 

468 DATA BB,CD,7D,BC,DD,66,07,DD,6E,06,2B0 [1772] 

469 DATA 36,01,23,36,00,CD,54,BB,3E,07,38F [2053] 

470 DATA C3,5A,BB,CD,BF,50,CD,8C,BC,DD,93F [3436] 

471 DATA 66,07,DD,6E,06,DD,56,05,DD,5E,141 [2032] 

472 DATA 04,DD,46,03,DD,4E,02,3E,02,CD,414 [1770] 

473 DATA 98,BC,30,06,CD,8F,BC,C3,54,BB,3A5 [2846] 

474 DATA CD,92,BC,CD,54,BB,3E,07,C3,5A,D4D [1399] 

475 DATA BB,CD,57,BB,DD,66,01,DD,6E,00,515 [1752] 

476 DATA 23,5E,23,56,EB,06,OC,11,20,98,45C [1715] 

477 DATA C9,DD,66,01,DD,6E,00,7E,FE,0C,C50 [3045] 

478 DATA D8,23,5E,23,56,D5,CD,57,BB,11,550 [2382] 

479 DATA 20,98,CD,9B,BC,CD,54,BB,21,21,E84 [1916] 

480 DATA 98,11,0E,00,4A,3E,1F,BE,30,04,AEF [2356] 

481 DATA OC,19,18,F9,2A,3F,57,IE,Al,19,B99 [1665] 

482 DATA CD,5D,52,E5,C5,01,3F,01,09,16,877 [2035] 

483 DATA OD,CD,3A,4A,CI,El , 06,00,DD,68,OFE [1830] 

484 DATA 11,21,98,OC,OC,OC,CD,A7,51,C5,92B [929] 

485 DATA DD,7D,B7,28,OE,47,CD,4A,4D,E6,353 [1613] 

486 DATA 13,28,06,10,F7,DD,2D,20,F3,CI,059 [1122] 

487 DATA DD,2E,00,CD,4A,4D,E6,13,20,05,03A [1093] 

488 DATA DD,2E,10,18,F4,1F,30,1A,05,78,E7E [1329] 

489 DATA FE,80,30,10,FE,04,38,07,7B,D6,4C9 [2233] 

490 DATA OE,5F,30,01,15,CD,A7,51,18,C3,AEF [1559] 

491 DATA 06,00,18,BF,1F,30,1B,04,79,D6,D6E [1339] 

492 DATA 04,B8,38,11,78,FE,05,38,07,7B,FOA [1710] 

493 DATA C6,OE,5F,30,01,14,CD,A7,51,18,0E2 [1431] 

494 DATA A4,47,18,Al,Dl,48,21,00,00,45,E3E [1523] 

495 DATA CB,21,CB,10 , 09,CB,21,CB,10,09,F04 [1828] 

496 DATA CB,21,CB,10,09,01,21,98,09,01,8E7 [1361] 

497 DATA 08,00,ED,BO,3E,2E,12,13,OE,03,272 [1894] 

498 DATA ED,BO,C9,E5,C5,D5,FD,2E,09,79,OEB [2552] 

499 DATA B8,38,30,78,FE,04,38,2B,C5,OE,3EA [1523] 

500 DATA OB,E5,CD,69,48,El,FD,7D,FE,05,46B [1145] 
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501 DATA 28,14,01,50,00,09,13,13,13,C1,F86 [1471] 

502 DATA 04,FD,2D,20,DC,CD,02,53,Dl,CI,D2E [2395] 

503 DATA E1,C9,D5,16,0B,CD,3A,4A,D1,18,3AC [1431] 

504 DATA E7,C5,D5,01,OB,08,CD,1F,49,01,235 [1510] 

505 DATA 50,00,09,01,01,18,DB,CD,CA,52,OEC [1735] 

506 DATA DD,5E,04,IC,DD,56,02,15,DD,7E,6BD [761] 

507 DATA 00,1F,38,OB,42,CB,38,4B,CD,16,9CC [2763] 

508 DATA 52,15,20,F6,C9,42,4B,CD,16,52,068 [1992] 

509 DATA 15,20,F8,C9,78,E6,07,28,0E,E5,966 [1808] 

510 DATA C5,B7,CB,1E,23,0D,20,FA,CI,El,7B2 [1580] 

511 DATA 3D,20,F2,CB,38,CB,38,CB,38,78,293 [2538] 

512 DATA B7,28,IC,E5,D5,11,D3,56,E5,C5,445 [2550] 

513 DATA 06,00,ED,BO,CI,El,36,00,23,10,632 [2184] 

514 DATA FB,06,00,11,D3,56,EB,ED,BO,D1,9CF [2858] 

515 DATA E1,7C,C6,08,67,D0,7D,C6,50,6F,5BE [1366] 

516 DATA 7C,CE,CO,67,C9,CD,4F,52,CD,4F,371 [2833] 

517 DATA 52,CD,4F,52,18,E7,7C,D6,08,67,BD6 [1992] 

518 DATA E6,40,C0,7D,D6,50,6F,7C,DE,CO,DB5 [2587] 

519 DATA 67,C9,CD,86,52,87,87,87,2F,32,475 [1226] 

520 DATA 84,52,AF,CB,C7,C9,79,D6,C7,ED,DAF [2508] 

521 DATA 44,67,E6,F8,6F,AC,67,7B,E6,07,A8B [1399] 

522 DATA 4F,7B,CB,3A,1F,CB,3A,1F,CB,3F,09D [1500] 

523 DATA 5D,16,60,29,29,19,29,16,00,5F,9D2 [1984] 

524 DATA 19,79,C9,DD,66,07,DD,6E,06,DD,527 [1516] 

525 DATA 56,03,DD,5E,02,DD,7E,05,DD,46,CE5 [1119] 

526 DATA 04,1F,CB,18,DD,7E,01,DD,4E,00,ODA [1882] 

527 DATA 1F,CB,19,C9,DD,46,07,DD,4E,06,606 [1477] 

528 DATA F5,79,CB,38,1F,D6,C7,ED,44,67,410 [1966] 

529 DATA E6,F8,6F,AC,67,4D,06,60,29,29,4E9 [1539] 

530 DATA 09,29,Fl,DD,4E,08,06,00,09,C9,596 [1672] 

531 DATA CD,AB,52,7A,BC,38,07,20,04,7B,5B6 [1392] 

532 DATA BD,38,01,EB,79,B8,D8,48,47,C9,3C0 [1930] 

533 DATA 06,F5,ED,78,1F,30,FB,C9,00,OF,9CD [1813] 

534 DATA FO,FF,00,03,OC,OF,30,33,3C,3F,4D7 [2092] 

535 DATA CO,C3,CC,CF,F0,F3,FC,FF,FF,7F,3E8 [832] 

536 DATA 3F,1F,OF,07,03,01,00,06,24,16,713 [1466] 

537 DATA 08,17,08,08,24,25,25,08,17,24,C8D [2348] 

538 DATA 17,24,08,08,17,17,17,08,17,17,0B7 [1364] 

539 DATA 17,17,17,24,24,16,17,16,17,08,579 [2026] 

540 DATA 17,08,08,08,08,08,08,17,17,08,83F [1469] 

541 DATA 08,08,08,08,08,08,08,08,17,17,B14 [1153] 

542 DATA 17,17,08,08,17,08,25,08,25,17,FAA [2160] 

543 DATA 08,25,08,08,17,08,17,17,17,08,34F [1098] 

544 DATA 25,17,08,25,08,08,17,08,08,08,61F [1868] 

545 DATA 17,17,17,17,08,08,17,17,17,24,AED [1863] 

546 DATA 17,08,08,40,00,30,00,3C,00,1F,062 [1313] 

547 DATA 00,1F,CO,OF,FO,OF,FC,07,F8,07,840 [1425] 

548 DATA FO,00,18,00,OC,B9,53,98,54,41,A8D [1996] 

549 DATA 55,8E,55,C3,55,C7,55,CB,55,1F,33A [1496] 

550 DATA 90,15,80,14,30,13,28,1A,88,1E,F02 [2319] 

551 DATA 40,0D,60,11,0D,0D,54,65,78,74,F83 [1873] 

552 DATA 01,65,69,6E,66,75,65,67,65,6E,5D1 [2096] 

553 DATA 12,44,61,72,73,74,65,6C,6C,75,CCE [2545] 

554 DATA 6E,67,3A,01,4E,6F,72,6D,61,6C,103 [2165] 

555 DATA OE,OD,31,38,30,47,72,61,64,01,EEC [1542] 

556 DATA 67,65,64,72,65,68,74,OF,54,65,204 [1819] 

557 DATA 78,74,66,6F,72,6D,03,3A,01,4E,014 [1474] 

558 DATA 6F,72,6D,61,6C,05,OD,44,75,65,0F6 [2510] 

559 DATA 6E,6E,04,OD,46,65,74,74,08,OD,DD2 [2734] 

560 DATA 55,6D,72,61,6E,64,65,74,0A,0D,D98 [1141] 

561 DATA 53,63,68,61,74,74,69,65,72,74,4FA [2041] 

562 DATA OD,4B,75,72,73,69,76,05,3A,01,2EF [2171] 

563 DATA 4E,6F,72,6D,61,6C,06,OD,4D,69,2F3 [1605] 

564 DATA 74,74,65,6C,05,OD,53,74,61,72,557 [2060] 

565 DATA 6B,11,54,65,78,74,68,6F,65,68,B71 [1567] 

566 DATA 65,02,3A,01,45,69,6E,66,61,63,DD4 [1483] 

567 DATA 68,07,OD,44,6F,70,70,65,6C,74,2D8 [1928] 

568 DATA 08,OD,44,72,65,69,66,61,63,68,75A [1639] 

569 DATA 12,54,65,78,74,62,72,65,69,74,E32 [1387] 

570 DATA 65,01,3A,01,45,69,6E,66,61,63,093 [1421] 

571 DATA 68,07,OD,44,6F,70,70,65,6C,74,597 [1835] 

572 DATA 08,OD,56,69,65,72,66,61,63,68,A61 [1776] 

573 DATA 05,01,03,08,OB,OE,OF,OA,57,69,2FE [2110] 

574 DATA 64,65,72,72,75,66,65,6E,08,4B,560 [1535] 

575 DATA 6F,70,69,65,72,65,6E,09,45,69,7E7 [1852] 

576 DATA 6E,73,65,74,7A,65,6E,06,06,6E,8AE [1360] 

577 DATA 6F,72,6D,61,6C,09,06,75,6D,67,ACB [2760] 

578 DATA 65,64,72,65,68,74,07,06,6F,76,C86 [2218] 

579 DATA 65,72,6C,61,79,OB,06,74,72,61,ECC [1748] 

580 DATA 6E,73,70,61,72,65,6E,74,06,50,184 [1851] 

581 DATA 75,6E,6B,74,65,08,56,69,65,72,5B2 [2205] 

582 DATA 65,63,6B,65,06,4C,69,6E,69,65,98A [1113] 

583 DATA 6E,OC,56,65,72,67,72,6F,65,73,FEB [2350] 

584 DATA 73,65,72,6E,OB,52,61,64,69,65,3C3 [2199] 

585 DATA 72,67,75,6D,6D,69,OB,49,6E,76,7BC [1616] 

586 DATA 65,72,74,69,65,72,65,6E,12,41,A09 [1753] 


587 DATA 75,73,73,63,68,6E,69,74,74,01,D82 [1936] 

588 DATA 6C,6F,65,73,63,68,65,6E,OC,42,F59 [2405] 

589 DATA 69,6C,64,01,6C,6F,65,73,63,68,466 [1691] 

590 DATA 65,6E,02,03,05,05,OB,42,75,74,0F2 [2098] 

591 DATA 74,6F,6E,01,6C,61,64,65,6E,0F,24C [1934] 

592 DATA 42,75,74,74,6F,6E,01,73,70,65,6E4 [1417] 

593 DATA 69,63,68,65,72,6E,09,42,69,6C,9E5 [1909] 

594 DATA 64,01,6C,61,64,65,6E,OD,42,69,B3B [2046] 

595 DATA 6C,64,01,73,70,65,69,63,68,65,05D [1867] 

596 DATA 72,6E,12,49,6E,68,61,6C,74,73,634 [1577] 

597 DATA 76,65,72,7A, 65,69,63,68,6E,69,DOE [1982] 

598 DATA 73,00,04,OF,44,72,75,63,6B,6D,019 [1719] 

599 DATA 6F,64,65,3A,01,33,66,61,63,68,1FB [1631] 

600 DATA 05,OB,36,66,61,63,68,06,OA,31,DD3 [1354] 

601 DATA 32,66,61,63,68,0F,2D,3E,01,42,9AA [2356] 

602 DATA 75,74,74,6F,6E,01,64,7-2,75,63,E9 2 [1580] 

603 DATA 6B,65,6E,01,00,01,01,20,00,01,2^0 [2095] 

604 DATA 01,20,00,01,01,20,00,10,08,00,3FE [2597] 


10 '====================================== [2703] 


20 '= Dieser Datalader erzeugt die Datei ' [2182] 
HC.BIN' = 

30 '====================================== [2703] 


40 MODE 2 [513] 

50 DEFINT a-z [553] 

60 RESTORE 200 [563] 

70 zeile=200 [653] 

80 b=10 : start=&8D00 :length=714: n$="HC.BIN" [2677] 
90 MEMORY start-1:z=length\b-((length MOD [2833] 
b)>0) 

100 FOR i=start TO start+(z-l) *b STEP b [2829.] 
110 FOR j=i TO i+b-1 [857] 

120 READ a$:a=VAL("&"+a$):POKE j,a [1247] 

130 pr={pr+(j-i+l)*a)MOD 4096 [977] 

140 NEXT [350] 

150 READ a$ [309] 

160 IF VAL("&"+a$)<>pr THEN PRINT"Pruefs [5239] 

ummenfehler in "zeile:STOP 

170 zeile=zeile+l [564] 

180 NEXT [350] 

190 SAVE n$,b,Start,length:END [2973] 


200 DATA 21,21,8D,01,09,8D,C3,D1,BC,11,8AC [1931] 

201 DATA 8D,C3,32,8D,C3,25,8D,48,41,52,DCE [1451] 

202 DATA 44,43,4F,50,D9,48,4C,4F,43,41,023 [2192] 

203 DATA 54,C5,00,00,00,00,00,FE,02,DO,223 [2189] 

204 DATA B7,28,03,DD,7E,00,32,CDj8F,C9,DC4 [1321] 

205 DATA FE,02,DO,B7,28,06,DD,7E,00,FE, 8E5 [1851] 

206 DATA 03,DO,32,CC,8F,ED,73,CA,8F,21,66D [2046] 

207 DATA 00,C0,0E,20,C5,E5,FD,21,D9,8F,6F8 [2404] 

208 DATA IE,2A,DD,21,D4,8F,06,05,E5,7E,F4E [1607] 

209 DATA DD,77,00,CD,El,8D,DD,23,10,F5,D45 [2341] 

210 DATA El,23,16,08,D5,01,00,00,AF,DD,1C6 [1490] 

211 DATA CB,FB,26,30,08,CB,F7,CB,EF,CB,811 [2332] 

212 DATA FO,CB,Fl,DD,CB,FC,26,30,08,CB,57D [2084] 

213 DATA E7,CB,E8,CB,EO,CB,E9,DD,CB,FD,54C [1851] 

214 DATA 26,30,08,CB,DF,CB,D8,CB,El,CB,E4A [1990] 

215 DATA D9,DD,CB,FE,26,30,08,CB,D7,CB,F21 [1643] 

216 DATA CF,CB,DO,CB,Dl,DD,CB,FF,26,30,120 [2761] 

217 DATA 08,CB,C7,CB,C8,CB,C0,CB,C9,FD,D74 [1155] 

218 DATA E5,11,50,01,FD,77,00,FD,19,FD,9D5 [2041] 

219 DATA 70,00,FD,19,FD,71,00,FD,El,FD,EEA [2020] 

220 DATA 23,D1,15,20,9B,1D,20,82,CD,0D,1CA [2020] 

221 DATA 8E,El,06,05,CD,El,8D,10,FB,C1,23F [1559] 

222 DATA OD,C2,4A,8D,C9,7C,C6,08,67,DO,F20 [2029] 

223 DATA 7D,C6,50,6F,7C,CE,CO,67,C9,AF,174 [1998] 

224 DATA 06,2A,B6,CO,2B,B6,CO,2B,B6,C0,089 [1489] 

225 DATA 2B,B6,C0,2B,B6,CO,2B,B6,CO,2B,C65 [2556] 

226 DATA B6,C0,2B,B6,C0,2B,10,E6,C9,C5,D19 [1410] 

227 DATA D5,E5,DD,E5,FD,E5,21,28,91,CD,F74 [1663] 

228 DATA EF,8D,57,23,01,D9,8F,ED,42,22,720 [1463] 

229 DATA CE,8F,21,78,92,CD,EF,8D,5F,23,29D [2099] 

230 DATA 01,29,91,ED,42,22,D0,8F,21,C8,D8E [2695] 

231 DATA 93,CD,EF,8D,B2,B3,28,73,23,01,25D [1761] 

232 DATA 79,92,ED,42,22,D2,8F,3A,CC,8F,FDA [1152] 

233 DATA FE,02,28,ID,B7,28,46,CD,FF,8E,D20 [1107] 

234 DATA CD,FF,8E,CD,CE,8E,CD,08,8F,CD,F07 [1958] 

235 DATA 08,8F,CD,CE,8E,CD,11,8F,CD,11,A2E [402] 

236 DATA 8F,18,3B,CD,FF,8E,CD,FF,8E,CD,1B4 [1769] 

237 DATA FF,8E,CD,FF,8E,CD,CE,8E,CD,08,35D [1107] 

238 DATA 8F,CD,08,8F,CD,08,8F,CD,08,8F,C3A [1687] 

239 DATA CD,CE,8E,CD,11,8F,CD, 11 ,8F,CD,A5C [1170] 

240 DATA 11,8F,CD,11,8F,18,0F,CD,FF,8E,6E5 [2321] 

241 DATA CD,CE,8E,CD,08,8F,CD,CE,8E,CD,AB9 [2308] 

242 DATA 1 1,8F,CD,CE,8E,21,9E,8F,CD,F4 , E9A [2 341] 


6 / 7’90 PC 77 







































I—Listing 


243 

DATA 

244 

DATA 

245 

DATA 

246 

DATA 

247 

DATA 

248 

DATA 

249 

DATA 

250 

DATA 

251 

DATA 

252 

DATA 

253 

DATA 

254 

DATA 

255 

DATA 

256 

DATA 

257 

DATA 

258 

DATA 

259 

DATA 

260 

DATA 

261 

DATA 

262 

DATA 

263 

DATA 

264 

DATA 

265 

DATA 

266 

DATA 

267 

DATA 

268 

DATA 

269 

DATA 

270 

DATA 

271 

DATA 


8E,18,06,21,B4,8F,CD,F4,8E,CD,107 
09,BB,30,OA,FE,71,CA,7F,8F,FE,34B 
51,CA,7F,8F,FD,El,DD,El,El,Dl,046 
Cl / C9 / 21 / A9 / 8F / 18 / 21,C5,E5,21 / 96l 
91,8F,DD,21,91,8F,16,00,DD,5E,065 
OB,19,71,DD,5E,OC,DD,19,DD,70,A7F 
00,21,91,8F,CD,F4,8E,El,CI,C9,1F6 
E5,DD,El,06,00,DD,4E,OA,C3,6B,9F9 
8F,21,D9,8F,ED,4B,CE,8F,18,10,186 
21,29,91,ED,4B,D0,8F,18,07,21,3E9 
79,92,ED,4B,D2,8F,3A,CD,8F,B7,518 
28,0C,5F,3E,20,CD,2B,BD,30,FB,F6E 
ID,20,F8,AF,BO,B1,28,30,CB,79,B7A 
28,1F,79,0E,7F,91,C5,06,00,CB,0E5 
7F,28,0C,C5,0E,01,CD,D3,8E,CD,E6B 
6B,8F,C1,3E,7F,4F,CD,D3,8E,CD,0B7 
6B,8F,CI,CD,D3,8E,CD,6B,8F,3E,F90 
OD,CD,2B,BD,30,FB,CD,09,BB,DO ,014 
FE,71,28,19,FE,51,28,15,C9,AF,953 
Bl,28,01,04,48,47,7E,CD,2B,BD,038 
30,FB,23,10,F7,0D,20,F4,C9,ED,OFB 
7B,CA,8F,21,BF,8F,CD,F4,8E,3E,0F5 
OD,CD,2B,BD,30,FB,C9,1B,2A,01,4BE 
00,00,00,00,00,00,00,05,03,04,529 
1B,33,11,OA,00,00,00,00,00,00,605 
04,1B,33,01,OA,00,00,00,00,00,70E 
00,04,1B,33,14,OA,00,00,00,00,8D3 
00,00,04,1B,33,2A,00,00,00,00,B46 
00,00,00,03,00,00,00,00,00,00,B52 


[2488] I 

[431] 

[1502] 

[1243] 

[849] 

[2366] 

[ 2212 ] 

[ 2202 ] 

[1036] 

[2513] 

[2147] 

[2289] 

[1496] 

[1304] 

[1234] 

[2276] 

[2152] 

[1747] 

[2154] 

[2525] 

[2746] 

[2716] 

[ 2121 ] 

[1378] 

[1980] 

[1899] 

[1128] 

[2048] 

[1079] 


10 '====================================== [2889] 


20 '= Dieser Datalader erzeugt die Datei ' [2709] 
DISKBUTT.ON ' = 

30 '====================================== [2889] 


40 MODE 2 [513] 

50 DEFINT a-Z [553] 

60 RESTORE 200 [563] 

70 zeile=200 [653] 

80 b=10:start=&A083:length=&679:n$="DISKBU [3852] 
TT.ON" 

90 MEMORY &6FFF:z=length\b-((length MOD b) [1432] 
> 0 ) 

100 FOR i=start TO start+(z-1)*b STEP b [2829] 
110 FOR j=i TO i+b-1 * [857] 

120 READ a$:a=VAL("&"+a$):POKE j,a [1247] 

130 pr=(pr+(j-i+1)*a)MOD 4096 [977] 

140 NEXT [350] 

150 READ a$ [309] 

160 IF VAL("&"+a$)<>pr THEN PRINT"Pruefs [5239] 

ununenfehler in "zeile:STOP 

170 zeile=zeile+l [564] 

180 NEXT [350] 

190 CALL Start :SAVE n$,b,&72BF,6678:END [1722] 


200 DATA 21,91,AO,11,00,AF,01,97,00,ED,582 [1760] 

201 DATA BO,C3,00,AF,21,15,8A,22,C8,B0,E55 [2004] 

202 DATA 21,BF,72,E5,21,16,1A,E5,DD,21,6F4 [1107] 

203 DATA 28,Al,01,FD,FA,11,F9,F6,FD,21,A4B [1380] 

204 DATA 00,00,3E,00,32,C7,BO,21,00,70,AE1 [1615] 

205 DATA DD,7E,00,B9,28,0C,B8,28,1B,BB,F37 [2267] 

206 DATA 28,2C,BA,20,2E,AF,18,29,C5,DD,8E4 [1918] 

207 DATA 7E,02,DD,46,01,77,23,10,FC,OE,AC1 [2015] 

208 DATA 03,DD,09,C1,18,1D,C5,DD,46,01,F8E [1784] 

209 DATA DD,7E,02,DD,4E,03,77,23,71,23,029 [1010] 

210 DATA 10,FA,OE,04,18,E7,AF,77,23,77,6AB [1091] 

211 DATA 23,77,23,DD,23,E5,D5,ED,5B,C8,9E4 [1693] 

212 DATA BO,2B,ED,52,D1,E1,38,B2,C1,D1,E5F [2491] 

213 DATA 21,00,70,78,Bl,28,14,E5,ED,52,952 [1796] 

214 DATA El,28,OE,38,04,ED,BO,18,08,09,761 [1354] 

215 DATA 2B,EB,09,EB,1B,ED,B8,3A,C7,B0,7F5 [3101] 

216 DATA CB,4F,C8,FD,E9,FD,7F,00,FD,28,813 [1344] 

217 DATA FF,00,03,FD,28,00,CO,04,FD,28,DAC [1400] 

218 DATA 00,20,08,FD,28,00,10,10,FD,28,E25 [1381] 

219 DATA 00,08,10,FD,28,00,08,10,FD,28,E4E [I960] 

220 DATA 00,08,10,FD,IE,00,FD,08,FF,F8,CEA [2357] 

221 DATA 00,08,10,FD,IE,00,80,FD,07,00,D5B [1984] 

222 DATA 08,00,08,10,FD,IE,00,8F,FD,07,103 [1699] 

223 DATA FF,88,00,08,10,FD,IE,00,88,FD,8EC [1734] 

224 DATA 07,00,88,00,08,10,FD,IE,00,88,83E [1371] 

225 DATA 00,03,FD,05,00,88,00,08,10,FD,931 [1629] 

226 DATA IE,00,88,00,07,80,F6,78,00,88,DD4 [1962] 

227 DATA 00,08,10,FD,IE,00,88,00,OF,C0,E5D [2218] 

228 DATA F6,F8,00,88,00,08,10,FD,IE,00,CF9 [1852] 

229 DATA 88,00,1F,EO,00,01,B8,00,88,00,B34 [1773] 


230 DATA 08,10,FD,1E,00,88,00,3F,FO,00,C63 [1675] I 

231 DATA 03,38,00,88,00,08,10,FD,IE,00,88C [1732] 

232 DATA 88,00,7F,F8,00,06,38,00,88,00,4E5 [1550] 

233 DATA 08,10,FD,IE,00,88,00,FF,FC,00,C80 [1498] 

234 DATA OC,38,00,88,00,08,10,FD,IE,00,8B2 [2056] 

235 DATA 88,01,FF,FE,00,18,38,00,88,00,711 [1231] 

236 DATA 08,10,FD,IE,00,88,03,EF,DF,00,D3C [1687] 

237 DATA 30,38,00,88,00,08,10,FD,IE,00,992 [1990] 

238 DATA 88,07,CF,CF,80,7F,F8,00,88,00,ODB [1043] 

239 DATA 08,10,FD,IE,00,88,07,8F,C7,80,84A [1767] 

240 DATA CO,38,00,88,00,08,10,FD,IE,00,530 [1762] 

241 DATA 88,00,OF,CO,01,80,38,00,88,00,23A [1322] 

242 DATA 08,10,FD,IE,00,88,00,0F,C0,03,057 [1358] 

243 DATA 00,38,00,88,00,08,10,FD,IE,00,C7D [2071] 

244 DATA 88,00,OF,CO,06,00,38,00,88,00,6A0 [633] 

245 DATA 08,10,FD,IE,00,88,00,0F,C0,OC,517 [1667] 

246 DATA 00,38,00,88,00,08,10,FD,IE,00,13D [2006] 

247 DATA 88,00,0F,C0,IC,00,38,00,88,00,BCE [1434] 

248 DATA 08,10,FD,IE,00,88,00,07,80,7F,C43 [1263] 

249 DATA 00,FE,00,88,00,08,10,FD,IE,00,9F5 [2340] 

250 DATA 88,FD,07,00,88,00,08,10,FD,IE,9FD [1307] 

251 DATA 00,88,FD,07,00,88,00,08,10,FD,C02 [2036] 

252 DATA IE,00,8F,FD,07,FF,88,00,08,10,C7E [2366] 

253 DATA FD,IE,00,80,FD,07,00,08,00,08,562 [1560] 

254 DATA 10,FD,IE,00,FD,08,FF,F8,00,08,BF0 [1269] 

255 DATA 10,FD,28,00,08,10,FD,28,00,08,775 [2121] 

256 DATA 10,FD,28,00,08,10,FD,28,00,08,2FA [2567] 

257 DATA 10,FD,28,00,08,10,FD,28,00,08,E7F [2272] 

258 DATA 10,FD,28,00,08,10,FD,28,00,08,A04 [1985] 

259 DATA 10,FD,28,00,08,10,FD,28,00,08,589 [2287] 

260 DATA 10,FD,28,00,08,10,FD,28,00,08,10E [2163] 

261 DATA 10,FD,28,00,08,10,FD,28,00,08,C93 [2175] 

262 DATA 10,FD,28,00,08,10,FD,28,00,08,818 [2231] 

263 DATA 10,FD,28,00,08,10,FD,28,00,08,39D [2214] 

264 DATA 10,FD,28,00,08,10,FD,28,00,08,F22 [2059] 

265 DATA 10,FD,28,00,08,10,FD,28,00,08,AA7 [2019] 

266 DATA 10,FD,28,00,08,10,FD,1B,00,F8,F24 [1513] 

267 DATA 20,06,00,61, CO , FD, 07,00,08,10 ,.B9B [1403] 

268 DATA FD, 1B, 00,44,00,02,00,30,80, FD, DCC [2273'] 

269 DATA 07,00,08,10,FD,1B,00,42,61,E2,20B [2305] 

270 DATA 60,28,8D,81,80,FD,05,00,08,10,FDF [1603] 

271 DATA FD,1B,00,42,22,02,40,24,86,40,CE6 [2285] 

272 DATA FD,06,00,08,10,FD,1B,00,42,21,8A6 [1159] 

273 DATA C3,80,22,84,FD,07,00,08,10,FD,CAC [1203] 

274 DATA 1B,00,44,20,22,40,21,84,01,80,A4D [2273] 

275 DATA FD,05,00,08,10,FD,1B,00,F8,73,FA5 [1771] 

276 DATA C6,60,70,CE,60,FD,06,00,08,10,E93 [578] 

277 DATA FD,28,00,08,10,FD,28,00,08,10,83E [1473] 

278 DATA FD,28,00,08,10,FD,28,00,08,10,1E9 [1092] 

279 DATA FD,28,00,08,10,FD,28,00,08,10,B94 [1247] 

280 DATA 7F,FD,26,FF,FE,08,10,75,FD,26,61A [1940] 

281 DATA 55,56,08,10,6A,AF,FD,05,FF,EA,6CD [2161] 

282 DATA FD,18,AA,AF,FD,05,FF,EA,AE,08,67A [1637] 

283 DATA 10,75,56,FD,05,00,75,FD,18,55,BC8 [1433] 

284 DATA 5C,FD,05,00,75,56,08,10,6A,AE,DB8 [1614] 

285 DATA 00,38,00,OF,80,6A,FD,18,AA,AC,7BD [2566] 

286 DATA 07,FF,00,7F,00,6A,AE,08,10,75,85E [1951] 

287 DATA 56,00,FE,00,38,EO,75,FD,18,55,14B [1470] 

288 DATA 5C,IC,IC,00,7F,00,75,56,08,10,B79 [2659] 

289 DATA 6A,AE,03,FF,80,70,70,6A,FD,18,699 [2093] 

290 DATA AA,AC,IC,IC,07,FF,FO,6A,AE,08,FCA [1744] 

291 DATA 10,75,56,OF,FF,EO,7F,FO,75,FD,535 [3325] 

292 DATA 18,55,5C,OF,FC,01,FF,CO,75,56,OAB [2344] 

293 DATA 08,10,6A,AE,00,FE,00,70,70,6A,651 [2314] 

294 DATA FD,18,AA,AC,IC,IC,00,7F,00,6A,57C [2195] 

295 DATA AE,08,10,75,56,00,FE,00,70,70,92E [2198] 

296 DATA 75,FD,18,55,5C,07,FF,00,IC,00,724 [2593] 

297 DATA 75,56,08,10,6A,AE,FD,05,00,6A,9FA [2003] 

298 DATA FD,18,AA,AC,FD,05,00,6A,AE,08,EA2 [2064] 

299 DATA 10,75,57,FD,05,FF,F5,FD,18,55,D6D [2420] 

300 DATA 5F,FD,05,FF,F5,56,08,10,6A,FD,8F2 [3124] 

301 DATA 26,AA,AE,08,10,7F,FD,26,FF,FE,ADE [2255] 

302 DATA 08,10,FD,28,00,08,10,FD,28,00,88D [591] 

303 DATA 08,10,FD,28,00,08,10,FD,28,00,63C [1056] 

304 DATA 08,10,FD,28,00,08,10,FD,28,00,3EB [849] 

305 DATA 08,10,FD,06,00,06,73,OE,06,63,EEF [1329] 

306 DATA CE,1F,FD,1B,00,08,10,FD,05,00,C13 [638] 

307 DATA 01,80,21,84,02,44,04,22,FD,1B,C48 [1451] 

308 DATA 00,08,10,FD,07,00,21,44,01,C3,B4D [2223] 

309 DATA 84,42,FD,1B,00,08,10,FD,06,00,876 [950] 

310 DATA 02,61,24,02,40,44,42,FD,1B,00,72F [1606] 

311 DATA 08,10,FD,05,00,01,81,Bl,14,06,467 [1277] 

312 DATA 47,86,42,FD,1B,00,08,10,FD,07,4DE [2475] 

313 DATA 00,01,OC,00,40,00,22,FD,1B,00,OOD [1805] 

314 DATA 08,10,FD,07,00,03,86,00,60,04,ABC [1832] 

315 DATA 1F,FD,1B,00,08,10,FD,28,00,08,5F9 [1690] 

316 DATA 10,FD,28,00,08,10,FD,28,00,08,17E [2193] 
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Listing—| 


317 

DATA 

318 

DATA 

319 

DATA 

320 

DATA 

321 

DATA 

322 

DATA 

323 

DATA 

324 

DATA 

325 

DATA 

326 

DATA 

327 

DATA 

328 

DATA 

329 

DATA 

330 

DATA 

331 

DATA 

332 

DATA 

333 

DATA 

334 

DATA 

335 

DATA 

336 

DATA 

337 

DATA 

338 

DATA 

339 

DATA 

340 

DATA 

341 

DATA 

342 

DATA 

343 

DATA 

344 

DATA 

345 

DATA 

346 

DATA 

347 

DATA 

348 

DATA 

349 

DATA 

350 

DATA 

351 

DATA 

352 

DATA 

353 

DATA 

354 

DATA 

355 

DATA 

356 

DATA 

357 

DATA 

358 

DATA 

359 

DATA 

360 

DATA 

361 

DATA 

362 

DATA 

363 

DATA 

364 

DATA 

365 

DATA 


10,FD,28,00,08,10,FD,28,00,08,DO3 
10,FD,28,00,08,10,FD,28,00,08,888 
10,FD,28,00,08,10,FD,28,00,08,40D 
10,FD,28,00,08,10,FD,28,00,08,F92 
10,FD,28,00,08,10,FD,28,00,08,B17 
10,FD,28,00,08,10,FD,28,00,08,69C 
10,FD,28,00,08,10,FD,28,00,08,221 
10,FD,28,00,08,10,FD,28,00,08,DA6 
10,FD,28,00,08,10,FD,28,00,08,92B 

10, FD,28,00,08,10,FD,28,00,08,4B0 
10,00,1F,FD,08,FF,FD,1E,00,08,75E 
10,00,10,FD,07,00,01,FD,IE,00,4B2 
08,10,00,11,FD,07,FF,Fl,FD,1E,2CB 
00,08,10,00,11,FD,07,00,11,FD,3FA 
IE,00,08,10,00,11,FD,07,00,11,CA3 

FD, IE,00,08,10,00,11,00,03,FF,8D4 

FE, 01,EO,00,11,FD,IE,00,08,10,471 
00,11,00,OF,00,38,03,FO,00,11,E5E 
FD,IE,00,08,10,00,11,00,IC,00,17A 
38,03,FO,00,11,FD,IE,00,08,10,C85 
00,11,00,38,00,70,03*, FO, 00,11,866 
FD,IE,00,08,10,00,11,00,38,00,C7E 
70,03,FO,00,11, FD, IE., 00,08,10,7C1 
00,11,00,38,00,EO,03,FO,00,11,642 
FD,IE,00,08,10,00,11,00,IC,00,95E 
El,E3,Fl,EO,11,FD,IE,00,08,10,A55 
00,11,00,OF,01,C1,F3,F3,EO,11,605 
FD,IE,00,08,10,00,11,00,03,FF,236 
CO,FB,F7,CO,11,FD,IE,00,08,10,2CE 
00,11,00,OF,03,80,7F,FF,80,11,6D6 
FD,IE,00,08,10,00,11,00,IC,03,A10 
80,3F,FF,00,11,FD,IE,00,08,10,608 
00,11,00,38,07,00,1F,FE,00,11,OAO 
FD,IE,00,08,10,00,11,00,38,07,4FE 
00,OF,FC,00,11,FD,IE,00,08,10,OOD 
00,11,00,IC,OE,00,07,F8,00,11,980 
FD,IE,00,08,10,00,11,00,OF,OE,CB3 
00,03,FO,00,11,FD,IE,00,08,10,786 
00,11,00,03,FF,80,01,EO,00,11,760 
FD,IE,00,08,10,00,11,FD,05,00,195 
CO,00,11,FD,IE,00,08,10,00,11,874 
FD,07,00,11,FD,IE,00,08,10,00,038 

11, FD,07,FF,Fl,FD,IE,00,08,10,2B1 
00,10,FD,07,00,01,FD,IE,00,08,El5 
10,00,1F,FD,08,FF,FD,1E,00,08,0C3 
10,FD,28,00,08,10,FD,28,00,08,C48 
10,FD,28,00,08,08,FD,28,00,10,7ED 
04,FD,28,00,20,03,FD,28,00,CO,ACO 
00,FD,28,FF,FD,A9,00,00,00,00,A15 


[2225] 

[2240] 

[2196] 

[1973] 

[2207] 

[2147] 

[2271] 

[1992] 

[2263] 

[2436] 

[1528] 

[2003] 

[2094] 

[1933] 

[2189] 

[1977] 

[1843] 

[1666] 

[1695] 

[2047] 

[2218] 

[1888] 

[2290] 

[2006] 

[1663] 

[1624] 

[2693] 

[2048] 

[1800] 

[1634] 

[1785] 

[1581] 

[1774] 

[2255] 

[2051] 

[1617] 

[1978] 

[1919] 

[1916] 

[1698] 

[1623] 

[1904] 

[1575] 

[1618] 

[1372] 

[1981] 

[1450] 

[2003] 

[1623] 


Programm: 

Break 

Artikel: 

Mit Köpfchen, Schläger ... 

464 - 664 - 6128 

Disk./Kass. 


10 • 

******************************** 

[ 1285 ] 

20 1 

** 

* * 

[ 104] 

30 1 

** BREAKTHRU 

** 

[ 1079 ] 

40 ' 

*# 

* * 

[ 104] 

50 ' 

** written 1989 by 

** 

[805] 

60 ’ 

** 

** 

[ 104] 

70 ‘ 

** Thomas Nolte 

** 

[ 496] 

80 1 

* * 

** 

[ 104] 

90 • 

******************************** 

[1285] 

100 



[117] 

110 

1 Initialislerung 


[1300] 

120 



[117] 

130 

ENV 1,15,-l,5 


[ 644] 

140 

ENT -1,8,1,1,8,-1,1 


[ 758] 

150 

ENT 2,100,2,1 


[ 726] 

160 

BORDER 0 


[1008] 

170 

MEMORY &2FFF 


[ 766] 

180 

LOAD "BREAK.TAB",&9100 


[2533] 

190 

LOAD "BREAK.MCI ",&3000 


[ 1892 ] 

200 

LOAD "BREAK.MC2",Ä9364 , _ 


[1972] 

210 

LOAD "BREAK.MC3",&8200 


[2094] 

220 

DIM name$(9),score(9) 


[1026] 

230 

cpc=0 


[304] 

240 

OPENIN "BREAK.HI" 


[1789] 

250 

FOR x=0 TO 9 


[ 697 ] 

260 

INPUT #9,name$(x ), score(x) 


[1850] 

270 

NEXT 


[350] 

280 

CLOSEIN 


[ 752 ] 

290 

1 


[117] 

300 

’ Hauptprogramm 


[ 1580] 

310 

1 


[117] 


320 MODE 0:RESTORE 330:FOR p=0 TO 9:READ i 

:p(p)=i:INK p,i:NEXT 

330 DATA 0,3,6,16,26,16,6,3,24,0 

340 LOCATE 9,6:PEN 8:PRINT "von":LOCATE 5, 

8:PRINT "Thomas Nolte" 

350 LOCATE 6,25:PRINT "<S> = Start"; 

360 GOSUB 1140 

370 POKE &31F9,0:POKE &31FA.481 
380 1 

390 ' Highscoreliste anzeigen 
400 ' 

410 FOR x=0 TO 9 

420 LOCATE 1,x+11:PEN (x + 1) MOD 7+1 
430 PRINT USING"##";x+1;:PRINT " ";name$(x 
);SPACES(11-LEN(name$(x)));:PRINT USING"## 
### " ;score(x) 

440 NEXT 
450 ' 

460 ' Titel 
470 1 

480 PEN 9:LOCAT E 1,24:PRINT "BREAKTHRU" 

490 FOR x=0 TO 280 STEP 4 
500 FOR y=18 TO 30 STEP 2 
510 xp=x*2+8+y:yp=y*4+268 
520 IF T E ST(x,y)< > 9 THEN 550. 

530 FOR x2=0 TO 1;FOR y2=0 TO 3:PLOT xp+x2 
*4,yp+y2*2,(y\2+y2) MOD 7+l:NEXT y2,x2 
540 GOSUB 590;IF start=l THEN 670 ELSE IF 
s ta r t = 2 THEN 1220 
550 NEXT y,x 

560 FOR p=l TO 7:INK (p+x) MOD 7+l,p(p):NE 
XT 

570 GOSUB 620:IF start=l THEN 700 ELSE IF 
start=2 THEN 1220 
580 x=x+l:GOTO 560 
590 ' 

600 ’ Tastaturabfrage 
610 1 

620 start=0:a$=INKEY$:IF a$= M " THEN RETURN 

630 IF a$="s" THEN start = l 

640 IF a$="g" THEN 1130 

650 IF a$="e" THEN start=2 

660 RETURN 

670 ' 

680 Programmstart 
690 ' 

700 GOSUB 1160 

710 POKE &9008,score(O) MOD 256 
720 POKE &900C,score!0)\256 
730 POKE &9 00A,c pC 
740 CALL &3000 

750 a$=INKEY$:WHILE a$<>"":a$=INKEY$:WEND 
760 LOCATE 7,13:PEN 12:PRINT "E N D E" 

770 FOR t=l TO 1500:NEXT 
780 CLS 

790 scadr=&3AFC:p=l:GOSUB 850 
800 scadr=&3BOC:p=2:GOSUB 850 
810 GOTO 320 
820 ' 

830 1 evtl. Score eintragen 
840 ' 

850 sc=PEEK(scadr)+PEEK(scadr+l)*256 

860 FOR x=0 TO 9 

870 IF score(X)< SC THEN 890 

880 NEXT:RETURN 

890 CLS:PEN 11:LOCATE 3,3:PRINT "Spieler"; 
p; " , Sie" 

900 LOCATE 3,5:PRINT "haben";sc;"Punkte" 
910 LOCATE 3,7:PRINT "erreicht!" 

920 LOCATE 3,9:PRINT "Bitte geben Sie" 

930 LOCATE 3,11:PRINT "Ihren Namen ein." 
940 LOCATE 3,13:PRINT "Max. 10 Zeichen." 
950 LOCATE 3,17:INPUT "",n$ 

960 IF LEN(n$)>10 THEN 950 
970 FOR y= 8 TO x STEP -1 

980 name$(y+l)=name$(y):score(y+l)=score(y 

) 

990 NEXT 
1000 ' 

1010 neue Liste speichern 
1020 ' 

1030 name$(x)=n$:score(x)=sc 
1040 OPENOUT "HISCORES.DAT" 

1050 FOR x=0 TO 9 

1060 WRITE #9 , name$(x),score(x) 

1070 NEXT 
1080 CLOSEOUT 
1090 RETURN 
1100 1 

1110 ' Gegner anzeigen 
1120 ‘ 

1130 cpc = cpc XOR 1 :PEN 8 

1140 LOCATE 4,23:PRINT "GegnerIF cpc=l 
THEN PRINT "Computer" ELSE PRINT "Spieler 


[3563] 

[1397] 

[4144] 

[ 1392] 
[823] 

[ 1368] 
1117] 
[1650] 
[117] 

[ 697 ] 

[2065] 

[5110] 


[ 350] 
[117] 

[ 643] 
[117] 

[2293] 
[871] 

[ 1384 ] 
[2122 ] 
[ 1459 ] 
[6606] 

[ 5241 ] 

[ 397] 
[2234 ] 

[3422 ] 

[1507] 

[117] 

[1058] 
[117] 
[3248 ] 
[ 1906] 
[ 1450] 
[ 706] 

[ 555 ] 
[117] 

( 1 725 ] 
[117] 
[819 ] 
[1417] 
[949 ] 

[ 795 ] 
[493] 
[938] 

[ 882 ] 

[ 1001 ] 

[91]' 

[2768] 

[3034] 

( 500] 

[117] 

[1403] 

[117] 

[1131] 

[ 697] 

[2334] 

[940] 

[1770] 

[ 1962 ] 
[2137] 
[ 3349 ] 
[ 3089 ] 
[2604] 
[2039 ] 
[1291 ] 
[1016 ] 
[2767] 

[350] 

[117] 

[804] 

[117] 

[1759] 

[ 1309 ] 

[697] 

[2026] 

[350] 

[ 902 ] 

[ 555] 
[117] 

[ 1505 ] 
[117] 
[1527] 
[7414] 
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I Listing 


1150 RETURN [555] 

1160 ' [117] 

1170 ' Normalfarben einstellen [2943] 

1180 • [117] 

1190 RESTORE 1200:FOR x = 0 TO 15:READ y:XN K [ 1965 ] 

x,y:NEXT 

1200 DATA 0,1.2,14,20,3,6,16,9,18,25,24,26 [2465] 
,15,4,8 
1210 RETURN 

1220 '************»******* 

1230 '** ** 

1240 '** Raumeditor ** 

1250 ’** ** 

1260 ********************* 

1270 b$="81tte warten" 

1280 WINDOW #1,5, 16, 4,24:PEN #1,6 
1290 1 

1300 ' Raeume lesen 
1310 1 

1320 GOSUB 1190:CLS: PEN 11:PRINT b$ 

1330 a=48200 
1340 b=&4000 
1350 WHILE PEEK(a) < >0 
1360 c=PEE K( a) 

1370 d=c AND 15 
1380 e=c\16 
1390 FOR x=1 TO e 
1400 POKE b, d 
1410 b=b+l 
1420 NEXT 
1430 a=a+1 
1440 WEND 
1450 a=a+ 1 

1460 IF PEEK(a)<>0 THEN 1350 
1470 ' 

1480 ' Kopfzei1en 
1490 ’ 

1500 LOCATE 1,1:PRINT "Raum: Stein:’ 

1510 PRINT "Spalte: Zeile;" 

1520 r= 1:GOSUB 1820 
1530 xp=0:yp=0: st=0 
1540 GOTO 1760 
1550 ' 

1560 ' Tastaturabfrage 
1570 ' 

1580 xf=0: yf=0 

1590 a$="":WHI LE a$="":a$= INKEY$-WEN D 
1600 IF a$="e" THEN GOSUB 1960:GOTO 1760 
1610 IF a$="1" THEN GOSUB 2090:GOTO 1760 
1620 IF a$ =" s" THEN 2300 
1630 IF a$=" h" THEN 320 
1640 IF a$=CHR$(248) THEN r=r+l:GOSUB 1890 [1907] 

:GOTO 1760 

1650 IF a$=CHR$(249 ) AND r>l THEN r=r-l:GO [2994] 
SUB 1890:GOTO 1760 

1660 IF a$=CHR$(244) THEN St=(at+1) MOD 9 [1924] 

1670 IF a$=CHR$(245) AND st>0 THEN st=st-l [2182] 
1680 IF a$ = CHR$(240) THEN yf = -l 
1690 IF a$=CHR$(241) THEN yf=l 
1700 IF a$=CHR$(242) THEN xf=-l 
1710 IF a$=CHR$(243) THEN xf=l 
1720 IF a$=" " THEN GOSUB 2200:G0TO 1760 
1730 IF xp+xf>ll OR xp+ x f < 0 OR yp + yf>20 OR [3995] 
y p + yf < 0 THEN 1580 

1740 MOVE (xp+4)*32,350-yp*16,11, 1:PRINT C [2323] 
HR$ (5 ) ; CHR$(143 ) ; 

1750 xp=xp+xf:yp=yp+yf 

1760 MOVE (xp+4)*32,350-yp* 16,11, 1:PRINT 
HR$( 5) ;CHR$<143 ) ; 

1770 LOCATE 18,2:PRINT USI NG"###";yp+1 
1780 LOCATE 8,2:PRINT xp+1 
1790 ' Stein anzeigen 

1800 IF st=0 THEN LOCATE 19,1:PRINT 
SE POKE &3E5A,st:POKE &3E5C, 72:POKE &3E5E, 

0: CAL L &3E59 

1810 GOTO 1580 [319] 

1820 • [117] 

1830 ' Raum zeichnen [716] 

1840 ' [117] 

1850 PEN 8: LOCATE 4,3:PRINT STRI NG${ 1 4,14 3 [2217] 

1860 FOR x=4 TO 24:LOCATE 4,x:PRINT CHR$(1 [2231] 

43); SPC( 12);CHR$( 143) : NEXT 
1870 LOCATE 4,25:PRINT ST RING$ ( 14,1 43 ) ; 

1880 PEN 11 

1890 CLS # 1:LOCATE 8,1:PRINT r 
1900 adr = &4000+(r-1 )*252 
1910 IF ad r > b-1 THEN b=b + 252 

1920 POKE &31F9,ad r MOD 256 

1930 POKE &31FA,adr\256 

1940 CALL &31ED 

1950 RETURN 
1960 ' 

1970 ' Raum einfuegen 


[ 555] 
[665] 

[ 104] 

[ 720] 

[ 104] 

[ 665 ] 
[1720] 
[ 2022 ] 
[117] 

[ 763 ] 
[117] 

[ 1191] 
[ 683] 
[560] 

[ 1291] 
[1334] 
f 716] 
[873] 

[ 693] 
[247] 

[ 569 ] 
[350] 

[ 725 ] 
[390] 

[ 725] 

[1330] 
[117] 
[ 1202 ] 
[117] 

[ 1429 ] 
[2261 ] 
[470] 
[991] 

[ 363] 
[117] 

[ 1058] 
[117] 

[ 1007 ] 

[1812 ] 
[2256] 

[2468] 

[1440] 

[1824] 


[326] 

[ 997 ] 
[941] 

[1053] 
[ 19 2 7 ] 


[1909] 
[2323] 


[2391] 
[ 1206] 
[ 1455 ] 
EL [5688] 


[2072] 
[ 601 ] 
[1170] 
[ 1209 ] 
[ 1368 ] 
[1081 ] 
[1142] 
[515] 

[ 555 ] 
[117] 

[1213] 


1980 ' 

[117] 

1990 CLS #1:PRINT #1,b$ 

[ 1082 ] 

2000 a=&4000+(r-l)*252 

[ 1378 ] 

2010 FOR x=b TO a STEP -1 

[1314] 

2020 POKE x+252,PEEK(x) 

[ 205 ] 

2030 NEXT 

[350] 

2040 b = b + 2 52 

[ 908 ] 

2050 FOR x=0 TO 251 


2060 POKE a + x , 0 

[ 506 ] 

2070 NEXT 

[ 350] 

2080 GOTO 1890 

[ 361 ] 

2090 ' 

[117] 

2100 Raum loeschen 

[ 1332] 

2110 ' 

[117] 

2120 CLS #1:PR I NT #l,b$ 

[1082 ] 

2130 a=&4000+(r-1)*252 

[13781 

2140 IF a+252=b AND r>l THEN r=r-l:GOTO 21 [1561] 

80 


2150 FOR x=a TO b 

[1083] 

2160 POKE x,PEEK(x+252) 

[489 ] 

2170 NEXT 

[350] 

2180 b=b-252 

[ 5 72 ] 

2190 GOTO 1890 

[361 ] 

2200 ‘ 

[117] 

2210 Stein setzen 

[1346] 

2220 ' 

[117] 

2230 POKE &4000+(r-1 )*252 + yp*12+ xp,st 

[2528 ] 

2240 IF st = 0 THEN LOCATE 5 + xp,4 +yp:PRI NT 

[3644] 

":RETURN 


2250 POKE &3E5A,st 

[1296] 

2260 POKE &3E5C,(xp+4)*4 

[1177] 

2270 POKE 8.3E5E , (yp+3)*8 

[ 993] 

2280 CALL &3E59 

[ 654 ] 

2290 RETURN 

[ 555 j 

2300 ' 

[117] 

2310 ' Raeume speichern 

[ 1240 ] 

2320 ' 

[117] 

2330 zaehler=0:daten=&8200:a=&4000 

[1839] 

2340 FOR r=l TO (b-a)/252 

[1195] 

2350 GOSUB 1890 

[ 873 ] 

2360 z2=l 

[491 ] 

2370 WHILE z2<253 

[1327] 

2380 byte=PEEK((r-1)*252+a+z2-l) 

[1529] 

2390 zl=l 

[471] 

2400 WHILE Z1 < 15 AND z2<252 AND PEEK((r-l) 

[2961] 

*252+a+z2)=byte 


2410 zl=zl+l:z2=z2+l:WEND 

[ 9 79] 

2420 POKE daten+zaehler,zl*16 OR byte 

[1467] 

2430 zaeh1er=zaeh1er+1 


2440 z2=z2+l 


2450 WEND 

[ 390] 

2460 POKE daten + zaehler,0:zaehler=zaeh1 er* 

[2769] 

2470 NEXT 

[350] 

2480 POKE daten+zaeh1er,0 


2490 SAVE "BREAK.MC3",b,&8200,zaehl er +1 

[ 2975 j 

2500 GOTO 320 

[ 500] 

10 ' 

[117] 

20 erzeugt Y-Tabelle 

[1330] 

30 ' 

[117] 

40 bad r=16384 

[ 593 ] 

50 FOR y=0 TO 199 

[ 1200] 

60 b=INT(badr/256) 

[ 1058] 

70 POKE &9100+y,b 

[1012] 

80 POKE &9200+y,badr-b*256 

[ 1598 ] 

90 badr=badr+2048:IF badr>32767 THEN badr= 

[2116] 

badr-16304 


100 NEXT 

[350] 

110 SAVE "BREAK.TAB", b, &91 00, & 1 FF 

[1751] 

10 ' 

[117] 

20 erzeugt Hauptmaschinenprogramm 

[2427] 

30 ' 

1117] 

40 ad r = &3000 


50 FOR z=1 TO 74 

[1148 ] 

60 READ z$ 

[331] 

70 check = 0 

[177] 

80 FOR p=0 TO 49 

[ 707] 

9 0 byte = VAL("&"+MID$(z$,p*2+l ,2)) 

[1166] 

100 check=check+byte 

[ 662 ] 

110 POKE adr.byte 

[84] 

120 adr=adr+l 


130 NEXT 

[ 350] 

140 READ qs:IF checkOqs THEN PRINT "Fehle 

[5380] 

r in Zei1e";z*10+160:STOP 


150 NEXT 

[ 350] 

160 SAVE "BREAK.MCI",b,&3000,3700 

[1744] 

170 DATA 3E0532FB3A320B3B210082223D31AF320 

[5641 ] 

890676F22FC3A220C3B3A0890FEOOCC5730CD5B32C 


D0435CD2737CDB63BCD3F31CD,&11DB 



80 PC 6 / 7’90 



























Listing—i 


180 DATA 1631CDE93B3A0A90FEOO20O73AOB3BFE0 [4868] 
020D53AFB3AFE0020CE3E80320090CDE93BC3B133C 
D363BCD183BCD893DAF320090,41479 

190 DATA CDAE303E80320090CDAE302A3D3111008 [7079] 

17E23FE002012223D317EFE00C2E331210082223 D3 
1C3E3314FCB3FCB3FCB3FCB3F,41334 

200 DATA 4779E60FFE062004CBE71806FE072002C [5446] 

BEF121310FC18C7CDE13BOE2ADD210696CD08310E7 
2DD21EA95CD08313AOA90FEOO,41434 

210 DATA 281F06070E18C5590E003E023209903E1 [6417] 
EED4 7DD215E9 6CD4134C179C6174F1 OE50E1OCDFA3 
OOE 1CCDFA300E30CDF A300E3C,41185 

220 DATA 1E003E07CD2D321E083E07C32D321E013 [5178] 

E0232O99O3EOEED47C341343A0A9OFE00C83EFF32O 

69347C5C110FC2100002 20C38, 4F03 

230 DATA 3EO5320B3B3AEO3BFEOOC8CBDF32EO3BC [6838] 
90000FD211093DD21F83ADD7E0DFEFF2818FE08DAD 
A31D608D0770D280CCD8C3121,41635 

240 DATA FA9611O19OC0B337FD211293DD21O83BD [7167] 
D7E0DFEFFC8FE983062C608DD770DFE96C8CD8C312 
11E97110190C3B3373CCB3FCB,4188D 

250 DATA 3FCB3FFE043824FE1 0 3020D6044F DD 7 EO [5857] 
E3CCB3FCB3FCB3FD6024779C60C10FCD60C6F26817 
E47FE00200DDD7EODFD7700DD,41508 

260 DATA 7E0EFD7701C9CD8B31AF320190DD7E08F [6997] 

5C0013AF1DD7708FD3600FFDD360DFFC9AF3200903 
20890CDF2313E8032009006FC,41769 

270 DATA 0E101E182100817EFE002819E60FFE082 [5762] 
810573A0090FE8028073A08903C3208907ACD2D322 
379C6044FFE40CC263210D6C9,410F8 

280 DATA OE 10 7BC608 5FC9 E5D5C52118943DCB278 [6001] 
56FAF8C670608224232DD2 AOOOOC5 CDB8340604DD7 
E0077D0232310F7C11C10EDC1,4146A 

290 DATA D1E1C93A0090FE802809FD21229321889 [5414] 
31807FD21449321AA93FD220290220490228432216 
6930611C5DD2A00003A8432C6,41367 

300 DATA 02328432FD4E00FD23FD5EO0FD237ECB3 [5135] 
F3C320990237EE0472379FEFF2805E5CD0934E1C11 
0000605210994C5E57EFE0028,41582 

310 DATA 1DD61077234E235E47E6F0FE30CADD33F [5200] 

E20280AFE00280F78E60FCD2D32E1232323C110D51 

805E1360018F3060921EE93C5,41454 

320 DATA 7EE5FE0028113D77234E235EFE02 DAC4 3 [ 5775 ] 
30FC608CD2D32E1232323C11 0E 1FD2100932A049 02 
21E33216693O611C5DD2A0O00,41 1F5 

330 DATA 3A1E33C602321E33FD4E00FD23FD5EO0F [7053] 

D237ECB3F3C320990237EED472379FEFF2805E5CD2 
534E1C11000FD21009321CC93,415A4 

340 DATA 225D332166930611C5DD2A00003A5D33C [6422] 
602325D33FD4E00FD23FD5EO0FD237E3CCB3F32099 
0237EED472379FEFF2805E5CD,413C5 

350 DATA 4134E1C11000ED5B029021009 30 12200E [5196] 
D803A0090FE8028143E803200900100BC3EOCED790 
100BD3E1OED79C9AF32009001,41263 

360 DATA 00BC3EOCED7901O0BD3E34ED79C93E08E [4848] 
D4 7CDB834060436002310FB1CED573 DE D4720 EEC30 
533CDFA331C0606CDB8343633,4138A 

370 DATA 2336332336332336331C10EFCDFA33C3D [6389] 
A32CDB834361123363323 3 633233 62 2C9CB39CDB8 3 
43A099047DD7E007723DD2310,41 ICO 

380 DATA F71CED5730ED47C20B34C9CB39CDB8343 [5280] 

A0990477EDD770023DD2310F71CED573DED47C2273 
4C9CB3979320790DA7F343A07,41630 

390 DATA 904FCDB8343A099047DD7E0057E6AACA6 [6297] 

4344F7EE6 5 5B1 777AE655CA70344F7EE6AAB 1 7 7DD2 
32310E01CED573DED47C24A34,41852 

400 DATA C93A07904FCDB8343A099047DD7E0057C [7604] 
B3FE655CA9B344F7EE6AAB1 7 723 7 ACB27E6AACAAA3 
44F7EE655B177DD2310DC1CED.4188D 

410 DATA 573DED47C27F34C916921A816F16911A5 [7474] 
73AOO9O8A67C9DD7E00FDBEOOD2DA34DD8666FDBEO 
0D2E434C9FD7E00FD8666DDBE,41980 

420 DATA 00D8DD7E01FDBE01D2F734DD8667FDBE0 [7636] 
1D20135C9FD7E01FD8667DDBE01D83EFFC9FD2A013 
BD021F83ACD24BBAF32043B32,419B5 

430 DATA 143BE5CD46353A0190FE012006211597C [7252] 

DAABCE13A0A90FE00C065FD2A11 3BDD21 083BCD46 3 
53A0190FE01C0213997C3AABC, 414E4 

440 DATA AF320190FD4EOOFD7E011600CB442810D [7167] 
605FE183806CBC2CBFA182B3E181827CB4C2823D04 
60BCB48 2 00CCB58200 8CB502 0,412 44 

450 DATA 0806AC180606B2180206A2C605B83004C [7022] 
BFA1801785F79CB54280FFE00280BFE882807CBCAC 
BF23D180FCB5C280BFE142807,411C4 

460 DATA FE9C28033CCBF24FFD7100FD7301DD720 [6016] 
CCB64282BDD7E0BCB4F200ACB472820DD360B01181 
ADD7E0DFEFF2013210190CBC6,414F9 

470 DATA FD7EOODD77ODFD7EO1C6O6DD770EDDE52 [7511] 
112933AE03BE60747CB27856FE5DDE1CDC734DDE1F 
EFFC036FFAF32E03B78FE0120,41B2B 

480 DATA 08CD6C36DD360B01C9FE022008CD9536D [6497] 
D360B02C9FE032018CD9536D0360B08DD6E04DD660 
511140019DD7504DD7405C9FE,41347 


490 DATA 0420021877FE05200BDD3403CD6C36DD3 

60BOOC9FE062008DD360104DD360205FE07CODD360 

102DD360201C9DD7E0BE60FFE,411BE 

500 DATA 00C8FE01C8FEO420OAFD7E01C605FD770 

118694FFD7E01D603FD770179FE0228571855DD7EO 

BE60FFE02C8FE08C84FFD7E01,41632 

510 DATA C603FD770179FE002844FEO12840FD7EO 

1C605FD7701182EDD7EOBE60FDD360B04FE04C84FF 

D7E01D605FD770179FE002820,414AB 

520 DATA FE01281C4FF07E01D603FD770179FE022 

80Al 8080604180C060818080604181406081810CD1 

A372B10FDDD740ADD75097123,4DSF 

530 DATA 73C9CD1A372310FDDD740ADD750971237 

3C9DD660ADD6E094E36FF23 5 E2 BC9 FD210093DD21F 

83A3E67CDDA37FEFF2009CD88,41788 

540 DATA 3BDD360301181EDD 72003AO1904FCB412 

806210C3BCD9437CB492803CDAA3721FA96CDB337F 

D210293D021083B3E6FCDDA37,412FF 

550 DATA FEFF2007DD360301C38F3BD072003A019 

04FCB49280621FC3ACD9437CB412803CDAA37211E9 

7181FE57E23666F110100AFED.4135D 

560 DATA 523003210000EBE1732372C9DD350300F 

D3600FFC91101901AFE00C8CB5F2803C3AABC11090 

019CB6 7 2803C3AABC19CB5728.4142F 

570 DATA 03C3AABC214297C3AABC328938320B39C 

67F32C938324B3921O19036OODD7EO3FEOOC8FD7EO 

0FEFF2014DD6E09DD660A7EFD,415BA 

580 DATA 7700237EC609FD77013EFFC9FD7E013CC 

B3FCB3FCB3FDD7 707FD7E005 73CCB3FCB3FCB3FDD7 

7067AD05600CB4A280EDD9601,41685 

590 DATA D24C38CBC6CB8A3E00180DDD8601FE9E3 

806CBCECBCA3E9D4FFD7700FD7E01CB42280DDD960 

2FE193011CB823E19180BDD86,4165E 

600 DATA 02FEBD38O43EB0C8C2FD77O15F0CCB39C 

B39CB3979FE04DA8538FE10DA87393A033BC847281 

F21073B7E3D20063E0132033B,412EB 

610 DATA C9772A013B7ED603FD7700237EC608FD7 

701C9DDE5DD2A013BCDC 7340DE1FEFFC20739CBD6D 

D36080A21033BCB462807CBE6,417BE 

620 DATA 3E6432073BCBCA2A013B7ED603FD77003 

A043BAACB 7FCAF138CB4 7CAEE38C0BF 3AC3F138CDC 

C3ACB 7 7CA8639CB4FCA0139CD,418 79 

630 OATA E43AC38639CDD73AC386393A133BCB472 

81F21173B7E3D20063E0132133BC9772A113B7EC60 

4FD7700237EC608FD7701C9DD,412F0 

640 DATA E5DD2A113BCDC734 DDE 1FEFFC28639CBD 

6DD36080A21133BCB462807CBE63E6432173BCB8A2 

A113B7EC604FD77003A143BAA,41642 

650 DATA CB7FCA7339CB47CA7039C0BF3AC37339C 

DCC3ACB 7 7CA86 39CB4FCA8 3 39CDE43AC3B639CDD7 3 

AC91C7BFE18D8FEC0D0CB3FCB,41CB4 

660 DATA 3FCB3F5FD6024721008179D604C60C10F 

CD60C6F7E47FE00C8DD7E07BBCAF139DD7E06FE03C 

AF139FE10CAF139B9CAF739E5,41977 

670 DATA DACB39 2 3C3CC392B7EE1F EOOCAF139E5 D 

D7E07BBD5110C00DAE33919C3E639AFED52D17EE1F 

E00CAF739C3FD397AEE025718,41B12 

680 DATA 0A7AEE015718047AEE035778E60FFE08C 

A103A78D610FA4C3A77210190CB0EDD3508200CDD3 

60804ED5FE6033CDD77022109,41335 

690 DATA 947EFE00201978E60FF6407723FD7E003 

CE6F8CB3F7723FD7E013CE6F877C923232318DDDD3 

6080A360021089035210190CB,414B9 

700 OATA E6D521F03A78E60F5F1600197E5FDD660 

5DD6E0419DD7405DD7504D121EE937EFE00C2BA3A3 

60823FD7E003CE6F8CB3F7723,41679 

710 DATA FD7E013CE6F87721E03BAFBECOED5FFE2 

8D8E60 7C84FED5FE608B17 779CB27211293856FFD7 

EOO7723FD7E0177C923232318,4189D 

720 DATA BA47DD7E023CFE0678C80D3402C947DD7 

E023078C8DD3502C947DD7E013CFE0578C8DD3401C 

947DD7E013DFE0178C8DD3501,416E7 

730 DATA C90101010101030500020105000000001 

400000000000000000201050000000014000000000 

000000608C52100C011004001,4314 

740 DATA 0040CB261ACB3F1223130BAFBOB120F2C 

110E5C92100933AFB3AFE002805369623366E21029 

33A0B3BFE002805360723366E,4108F 

750 DATA 21A738110493010400EDB0EB065E36FF2 

310FB21EE93062A36002310FBCD883B3E041213EDB 

0AF32E03BCD8F3B3E061213ED,412B2 

760 DATA B0C911F83A3E02180411083BAF121321A 

B38010200EDB01313130E03EDBOOE06C99C6600660 

201000014930000FF00003AEO,4DD6 

770 DATA 3BFE00C84FE607CB275F160O211293197 

ECB592806FE9C280834C9FE00280235C936FFAF32E 

03BC9002AOB900E20C3063C3A,4126C 

780 DATA F83AOE34CD3F3C3AOB3BOE18CD3F3C2AF 

C3AOE4OCDO63C2AOC3BOE0O11E8O3CD273C0C0C0CO 

C116400CD273C0COC0C0C110A,4C35 

790 DATA OOCD273COCOCOCOC7D1818AF3CED5230F 

B193DE5C03F3CE1C9EE48BADA5CD6F64AFEDE21353 

C8 5 6F 7CCE006 7E5 DDE 1DDCBOO,41829 


[6215] 

[4752] 

[ 5964 ] 
[4667] 
[5801 ] 

[4493] 

[5037] 
[6022] 
[6331] 
( 5959 ] 
[5530] 
[6072] 
[7107] 
[5253] 
[5626] 
[6931] 
[ 3379] 
[7181] 

[8405] 
[7507] 
[ 6549] 

[5660] 

[6315] 
[6767] 
[4948] 
[5170] 
[5920] 
[ 6489] 
[5356] 
[4649] 
[7630] 


6 / 7’90 PC 81 





















I—Listing 


800 DATA 4E28111E00CDB834CD803D1CCDB834CD8 [6229] 
03018111E00CDB834AFCD783D1CCDB834AFCD783DD 
OCB005628151E01CDB8347EF6 , &1505 

810 DATA 8A7706051CCDB834368A10F818131E01C [6376] 
DB8347EE6457706051CCD8834360010 F8DDC800 5 E2 
8140COCOC1E000606ICCDBS 34,&104F 

820 DATA 368A10F80D0D0D1812OC0C0C1EO006O61 [5029] 
CCDB834360010F 80D0D0DDDC8006 6 28181E06CD883 
47EF645772336CF2336CF1CCD,&F 35 

830 DATA B834C0803D18131E06CDB8347EE68ACD7 [6244] 
83D1CCDB834AFCD783DDDCB006E280E1E0706061CC 
DB834368A10F8180C1E070606,&1263 

840 DATA 1CCDB8 34 3 60010F8 DDCBOO 7628141E070 [4327] 
6O6OC0COC1CCDB8343 68A10F80DODOD18121E07060 
60C0C0C1CCDB834360010F800, &D2 5 

850 OATA 0D0DDDCB007E28151E0DCDB8347EF6457 [6802] 
72336CF2336CF1CC0B834181B1E0DCDB8347EE68AC 
D78301CCD8834AF1801007723,&13 74 

860 DATA 3600233600C936452336CF2336CFC921A [7210] 
0C0CD923D21A04022029006OAE5C5CDBB3DC1E1110 
8001910F32A029011E0061906,&11E6 

870 DATA OAE5C5CDDA3DC1E11108001910F3C9110 [5997] 
OOOCDF93D11F907CD073EC0123ECD1D3ECD2B3ECD3 
6 3ECD403ECD4B3EC9110000CD ,8,1473 
880 DATA 4B3E11F907CD403ECD363ECD2B3ECD103 [5662] 
ECD123ECD0 73ECDF93DC919364006062336C010FB2 
33680C9 19060736842310FB36,8,1224 

890 DATA COC91936C0060723364810FBC91936840 [3924] 
60623360C10FB233648C919360C060723368C10FBC 
919060836CC2310FB2BC919 36, &F8E 

900 DATA CC060723366410FBC9193610060623363 [4111] 
010FB233620C93E000E001E00C32D3200000000000 
0000000000000000000000000,8,8 3 7 


10 ' 

20 erzeugt Sprltedatencode 
30 ’ 

40 MEMORY 49363 
50 ad r = 49364 
60 FOR z=l TO 20 
70 REAO 2$ 

80 check=0 
90 FOR p=0 TO 49 

100 byte=VAL( "4"+MXD$ (z$,p*2+l,2)) 

110 check=check+byte 
120 POKE adr.byte 
130 adr=adr+l 
140 NEXT 

150 READ qs: I F checkOqs THEN PRINT "Fehle 
r in Zelle";2* 10+ 1 70:STOP 
160 NEXT 

170 SAVE "BREAK.MC2",b,&9364, 1000 

180 DATA 00000303030304140414040E040E041EO 

41E04030403040604060406040 60406040604064B9 

75D976F97E7975F98B3980799,4834 

190 DATA BB996F9A819A939AB79ADB9AFF9A239B4 

79B6B9B54976697AB9723988998DD986199159A789 

A8A9AA59AC99AED9A119B359B,41BA9 

200 DATA 599B7D9B8E9594959A95C29SEA9506962 

2965E969A96A096A696B296BE96CA96D696E296EE9 

6000000000000000000000000, 416AB 

210 DATA 000000000000000000000000000000000 

0000000000000000000000000008 E94AE 9 4CE94 EE9 

40E952E954E956E956E944E94,4A78 

220 OATA 2E94006D3C283C6D6D286DCFCF2860CF9 

E3C146DCF9E3CCFCF3C6D9E6D28143C30000000000 

0003C2800146D3C003C6DCF28,4100B 

230 DATA 60CF9E28146DCF28003C3C28000000000 

00000000000000000 142800 1 43C9 EOO 1 4CF3C00003 

C2800000028000000000045CF,4803 

240 DATA CF8ACFF3F3F3DBF3F3F3DBF3F3F3DBF3F 

3F3DBF3F3F30BF3F3F351F3F3A254FCFCA8FC3C3C3 

CBC3C3C3CBC3C3C3CBC3C3C3C,42352 

250 DATA 8C3C3C3CBC3C3C3C143C3C2 855 FF FF AAF 

F3F3F3FBF3F3F3FBF3F3F3FBF3F3F3FBF3F3F3FBF3 

F3F3F153F3F2A41C3C382C303,41385 

260 DATA 030383030303830303038303030383030 

30383030303010303024 4CCCC88CCOCOCOC8COCOCO 

C8COCOCOC8COCOCOC8COCOCOC, 48DF 

270 DATA 8C0COCOCO4OCOC08O5OFOF0A0FC3C30B4 

B4B87034B870B034B8783034BOB43030F030383010 

3O3O244CCCC88CC0COCC88C8C,4C5E 

280 DATA 4CCO8C4CC8CO8C4C48CO8CC804COCCCOC 

04840C0C0805 4FCFCA8FC3C3CF8BCBC 7CF0BC7CF8F 

0BC7C78F0BCF8B4F0FCF0F078,42168 

290 DATA 50FOF0AOCC888888CC88C3828282C3825 

478747874787478547844484448444844484448444 

8444844484448444854787478,415A2 

300 DATA 747874785478B4A8B4B8B4B8B4B8B4A84 

30A430A430A430A430A430A430A430A430A430AB4A 

8B4B8B4B8B4B8B4A854787478,&1556 

310 DATA 747854784448444844484448444844485 

478747874785478B4A8B4B8B4B8B4A8430A430A430 

A430A4 30A4 30AB4A8B4B8B4B8,8,1402 


[117] 

[ 1326] 
[117] 
[497 ] 

[ 656 ] 
[1178] 
[331] 
[177] 

[ 707 ] 
[1166] 
[ 662 ] 
[84] 
[392 ] 
[350] 

[ 4932 ] 

[ 350] 

[1474] 
[5942] 


[6232] 
[4603] 
[ 5330 ] 
[5165] 
[6061] 
[ 7805] 
[6624] 
[ 7049 ] 
[5806] 
[5939] 
[5736] 

[ 5789] 
[6551] 


320 DATA B4A854787478747874787478547844484 [5923] 

448444844484448444844484448444844484448444 

84448444844 48 444844484448,8.10 7C 

330 DATA 547874787478747874785478B4A8B4B8B [6599] 

4B8B488B488B4A8430A430A430A430A430A430A430 

A430A430A430A430A430A430A,&1199 

340 DATA 430A430A430A430A430AB4A8B4B8B488B [5820] 

488B4B8B4A845CF9B2245CFCF8A1167CF8A458A0BF 

3DBF30BF3D8F351A254A8BC3C, 8.1 AE6 

350 DATA BC3CBC3CBC3C1428112267CF67CF67CF6 [7637] 
7CF458A55AABF3FBF3FBF3FBF3F152A41828303830 
383038303010244888C0C8C0C, 8.130E 

360 DATA 8COC8COCO408102064CC64CC64CC64CC4 [3752] 
4888101016400000F0000810101F401140F0000810 

100E803000F00008101021400,8.B9D 

370 DATA 010F00008201018200000F0000820101F [5304] 
40 1190F0000820100E803000F00008201022800010 
FOOOOS40101AOOF1EOFOOOOOO ,8.6 6 2 


10 

* 


20 

erzeugt 

Raudatencode 

30 



40 

MEMORY &81FF 

50 

adr = 8.8200 


60 

FOR 2=1 TO 

20 

70 

READ z$ 


80 

chec k = 0 


90 

FOR p=0 TO 

49 

IOC 

i byte=VAL( 

"&"+MID${z$, | 


110 check=check+byte 
120 POKE adr.byte 
130 adr=adr+l 
140 NEXT 

150 READ qs: IF checkOqs THEN PRINT "Fehle 
r in Zei1e";z*10+170:STOP 
160 NEXT 

170 SAVE “ BREAK . MC3" , b , 8.8200,1000 

180 DATA F0F0F0F0F0F0A04680162216801622168 

01622168O46FOF0FOFOFOFOA0OOCOC8C1C8EO18661 

840186518 401815 4215184 018,8,1686 

190 DATA 651840382738F01038273840186518401 

8154215184018651840186618E0C8C1C8C00013A02 

316204820162330182118302 3,8.CB9 

200 DATA 162018211820162330182018302316201 

820182016233018201830231620182018201623301 

82018302 3162014201420162 3,8,5EE 

210 DATA 301420143023162014201420162330182 

018302316201820182016233018201830231620182 

01820162330182018302 31620,8.60F 

220 DATA 182118201623301821183023162048201 

623A01300171018601410281018104110181028101 

810112311 1018102810181011.8.5F2 

230 DATA 231110181028101810112311101810281 

018101123111018102810181011231110181028101 

8101123111018102810181011,&451 

240 DATA 231110181028101810112311101810281 

418101123111018142810181011231110181028101 

8101123111018102810181011,8,459 

250 DATA 231110181028101810112311101810281 

018101123111018102810181011231110181028101 

8101123111018102810181011,8,451 

260 DATA 231110181028101810411018102810146 

018101700D04620462016251620162216201625162 

01622 1 620462046FOCO18 1047.8,855 

270 DATA 101840181017211710184018101721171 

018401810172117101840181017211710184018101 

72 11 710184018104 7101 8 FOCO, 8.70A 

280 DATA 462046201623162016241620162316201 

62416204620460000C110A23083506470459026F0F 

0F0F0F0F0F0D0269045706450,8.11CA 

290 DATA 8330A210C100FOD048702821285028452 

8 30 28 62 28102 88138A528A228A118 16A016 18A128A 

228A538812810286228302845,8.F73 

300 DATA 28502821287048F0D0001711146014111 

710171114401411173017111420141117501711241 

117701721179027A027901722,8.9 9 3 

310 DATA 177017122412175017124412173017126 

41217301712441217501712241217701722179027A 

02 79017211 770171124111750,8.8A6 

320 DATA 171114201411173017111440141117101 

711146014111700401321138013121113801312111 

3801312111380131211138013,8.6A6 

330 DATA 121113801312111380131211138013121 

113801312111380131211138013121113801312111 

3801312111380131211138013,&7DA 

340 DATA 121113801312111380131211138013121 

1138013121113801322134000C0582768A12811382 

7381128111864181128111814.8.8CE 

350 DATA 182718141811281118141825181418112 

811181418152814181128111814182518141811281 

1181428151814181118171117,&4C7 


[117] 
[1209 ] 
[117] 

[ 762 ] 

[ 652 ] 
[1178] 
[331] 
[177] 

[ 707] 
[1166] 
[ 662] 
[84] 
[392] 
[350] 
[4932] 

[ 350] 

[2426] 
[6235] 


[4698] 
[5587] 
[5819] 
[5220] 
[6121] 
[6027] 
[6121] 
[5014] 
[5018] 
[5283 ] 
[5010] 

[4910] 
[5153] 

[5889] 

[5213] 

[5384] 

[5765] 
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Listing—| 


360 DATA 141725171417111718111814181528141 
811281118141825181418112811181428151814181 
1281118141825181418112811,&4BF 

370 DATA 181418271814181128111864181128113 
827381128A16827580000000000000000000000000 
0000000000000000000000000,&4EF 

[5553] 

[5832 ] 

10 ' 

[117] 

20 erzeugt H1ghscore 1iste 

[2607] 

30 ’ 

[117] 

40 PPENOUT "BREAK.HI" 

[1247] 

50 FOR x =1 TO 10 

[803] 

60 WRITE #9,"THOMAS",(11-x)*100 

[1077] 

70 NEXT 

[ 350 ] 

80 CLOSEOUT 

[902 ] 

Programm: Kfz-Kosten 

Artikel: Wie teuer ist mein Auto? 

PC W/JOYCE 



LISTING > KF 2 KOST <, REMARK = >'<. 


< 1 > 
< 2 > 

< 3 > 

< 4 > 

< 5 > 

< 6 > 
< 2 > 

< 69 > 
<37> 

< 5 7 > 

< 12 > 

< 58 > 

< 5 6 > 

< 36 > 

< 85 > 
<55 > 

< 63 > 

< 8 5 > 

< 94 > 

< 19 > 
<21 > 

< 23 > 

< 5 9 > 

< 1 7> 

< 32 > 

< 1 > 
<98 > 

< 38 > 

< 5 > 

< 89 > 

< 2 8 > 
< 2 7 > 
<93 > 
<3 1 > 
<26 > 


<81 > 

< 34 > 

< 3 6 > 

< 38 > 

< 79 > 

< 3 7 > 

< 74 > 

< 2 7 > 

< 29 > 
<31 > 

< 60 > 
< 60 > 

< 90 > 

< 33 > 

< 95 > 


< 36 > 

< 1 7 > 

< 84 > 

< 20 > 

< 70 > 

< 7 7 » 

< 6 8 > 

< 9 > 

< 6 7 > 

< 16 » 


10 ' ******************************************** 

20 ' ****. KFZ - Kostenberechnung. **** 

30 ' ****.... CPC-Prog ramm aus PCI 12/88.... *«** 

40 ' ****. bearbeitet f)r JOYCE-PCW. **** 

50 ' ****. 1989 by Joachim Behnke. **** 

60 ' ******************************************** 
70 esc$=CHR$(27):cls$=esc$+"H"+esc$+"E" 

80 ion$=esc$+”p": 1off$=esc$+"q" 

90 con$=esc$+"e" : coff $ = esc$+" f" 

100 uon$=esc $+" f " :uoff$=esc$+"u" 

110 bei 1$=CHR$< 7) 

120 DEF FNat$(x,y)=esc$+"Y'' + CHR$(31 + x)+CHR$(31 + y) 
130 OEF FNwiO$=esc$+"X"+CHR$(32)+CHR$< 32)+CHR$(63> 
+CHR$( 121 )+cl s$ + cof f $ 

140 OEF FNwi l$=esc$+"X"+CHR$(59)+CHR$(34)+CHR$(32) 
+CHR$(117)+cls$+coff$ 

150 OEF FNwi2$=esc$+"X"+CHR$( 60) +CHR$ f 34 ) +CHR$ (32) 
+CHR$( 117) 

160 DEF FNwi3$=escJ+"X“+CHR$(61 )+CHR$(34)+CHR$( 32) 
+CHR$(117)+cls$+con$ 

170 DEF FNwi4$=esc$+"X"+CKR$( 36)+CHR$!34)+CHR$(53) 
+CHR$ ( 117)+COff$ 

180 DEF FNwi5$=esC$+"X"+CHR$( 59 )+CHR${34)+CHR$(34) 
+CHR$(117)+COff$ 

190 WIDTH 2 5 5,255: GO T 0 3070 

2 00 ' - 

210 1 *. Unterprogramm Linien 

220 1 - 

230 PRINT cl s$; esc$+"0"; 

240 PRINT CHR$(134);STRING$(88, 138 ) ;CHR$(140) ; 

250 PRINT CHR$( 133);SPC<88 ) ;CHR$t133 ) ; 

260 PRINT CHR$(130) ;STRING$(88,15 4) ;CHR$(136) ; 

270 FOR 1=1 TO 23 

280 PRINT CHR$(133); SPC( BB );CHR$(133); 

290 NEXT 1 

300 PRINT CHR$(130) ,STRING$(88,154) ;CHR$( 136) ; 

310 FOR i=1 TO 3 

320 PRINT CHR$( 133); SPC(88);CHR$( 133) ; 

330 NEXT 1 

340 PRINT CHR$C131 ) ;STRING$(88, 138) ;CHR$(137) ; 

350 PRINT FNat$(2,3); 1 on$". KFZ. -. KOSTEN 

B E R E C H N U N G. " ; CHR$ ( 164) ; " 1 

989 by Joachim Behnke. ";1off$ 

360 RETURN 

370 1 - 

380 ' *. Unterprogramm PRINT 

390 ' - 

400 IF maxksteI1 >0 THEN m$=STRING$(maxsteII."»")+" 
ELSE m$=STRING$(maxste)1,"#“ ) 

410 PRINT FNwi.3$; "Ihre Eingabe :. ";USING m$;b; 

420 RETURN 

430 ' -- 

440 ' *.... Unterprogramm Tastaturabfrage 

450 ' - 

460 GOSUB 400 

470 ste1 1=1:kste11=0: a=0: b=0 
480 a$=INKEY$:IF a$=" M THEN 480 

490 IF a$=" . " ANO kste 1 1 =0 AND maxstelDO THEN kst 
el1=1:GOTO 480 

500 IF a$=CHR$(127) ANO kstell>l THEN b=INT(b*10*( 
kstel1-2) )/(10* (kstel1-2)): GOSUB 400:kste11=kstell 
-1:GOTO 4BO 

510 IF a$ = CHR$(12 7) ANO stell»! THEN kste11 =0:ste1 
1=ste11 -1: b=INT( b/10): G0SU8 400 
520 IF a$=CHR$(13) THEN 610 
530 IF kstel1=3 THEN 480 

540 IF stell=maxstell+l AND kstell=0 THEN 480 
550 IF a$ < CHR$(48 ) OR a$>CHR${57) THEN 480 
560 8 = VAL(a$ ) 

570 IF kste11 =0 THEN b=10* b+a: ste11 =s te 11 + 1: GOTO 
590 

580 IF kste11 >0 THEN b=b+a/ ( 10"k s te11>: ks te11 = kst e 
1 1 + 1 

590 GOSUB 400 
600 GOTO 480 


< 74> 

< 2 7 > 

< 29 > 

< 31 > 
<80> 

< 86 > 

< 6 7 > 

< 60 > 
< 22 > 
< 60 > 

< 69 > 

< 50 > 

< 18 > 

< 2 3 > 

< 83 > 

< 36 > 

< 38 > 

< 40 > 

< 14> 
<81 > 

< 76 > 

< 29 > 

< 31 > 

< 33 > 

< 2 2 > 

< 4 7 > 

< 2 6 > 

< 14» 

< 33 » 

< 2 9 > 

< 90 > 

< 6 7 > 

< 33 > 

< 19 > 


< 5 2 > 
<57 > 
<11> 

< 4 7 > 

< 5 5 > 

< 78 > 

< 8 6 > 

< 89 > 

< 9 2 > 

< 9 5 > 

< 9 8 > 

< 88 > 

< 5» 

< 9 6 > 

< 60 > 
< 68 > 

< 90 > 

< 9» 

< 89 > 

< 9 7 > 

< 1 > 

< 4» 

< 12 » 

< 64» 

< 11 » 

< 72» 

< 48 > 

< 88 > 

< 96 > 

< 0 > 

< 3 > 

< 42 > 

< 7 1 > 

< 56 > 

< 46 > 

< 4 7 > 

< 8 7 > 
<95 > 

< 9 8 > 

< 2 > 
< 18 > 

< 98 > 

< 4 3 > 

< 7 0 > 

< 74 > 

< 86 > 

< 9 4 > 

< 9 7 > 

< 1 > 
< 22 > 

< 92 > 

< 1> 
< 86 > 

< 73 > 

< 14> 

< 9 3 > 

< 96 > 

< 0» 


610 RETURN 

620 ' - 

630 ' *. Unterprogramm Tastaturabfrage (1-12) 

640 ' - 

650 ste11 =0:b=0: a=0:a$="" 

660 a$ = INKEY$ : I F a$= - '" THEN 660 

670 IF a$ = CHR$(12 7 ) ANO ste!1>0 THEN stell=stell-l 
:b=INT(b/10):PRINT FNwi2$; :PR I NT FNat$(1,52) ;b ; 

680 IF a$=CHR$(13) THEN 750 
690 IF Stel1=2 THEN 660 

700 IF a$ <CHR$ (48 ) OR a$>CHR$(57) THEN 660 
710 a=VAL(a$) 

720 b=10*b+a:stell=stel 1+1 

730 PRINT FNwi2$;:PRINT FNat$( 1 ,52 );b; 

740 GOTO 660 
750 RETURN 

760 ■ - 

770 1 *. Tastaturabfrage (1-3) 

780 • - 

790 a$= IN KEY$:I F a$="" THEN 790 

800 IF a$ < CHR$(49 ) OR a$»CHR$(52) THEN 790 

810 RETURN 

820 ' - 

830 ' *. Tastaturabfrage (String) 

840 ' - 

850 date 1$="" 

860 a$ = INKEY$: I F a$='"' THEN 860 

B70 IF a$>CHR$(32) AND a$<CHR$(44) THEN 860 

880 IF a$=CHR$(46) THEN 860 

890 IF a$=CHR$(47) THEN 860 

900 IF a$ > CHR$(57) AND a$<CHR$(65) THEN 860 
910 IF a$ >CHR$( 93 ) AND a$<CHR$(97) THEN 860 
920 IF a$>CHR$(l27) THEN 860 
930 IF a$=CHR$(13 ) THEN GOTO 1000 

940 IF ASC (a$)=127 AND LEN(datei$)> 0 THEN datei$=L 
EFT$(datei$,(LEN(datei$)-l)):PRINT FNwi 3$; “Ihre Ei 
ngabe :. ";date1$;" " ; esc$+" D” ; : GOTO 860 

950 IF LEN(date1$)»maxlang THEN 860 
960 a$=UPPER$(a$) 

970 datei$=datel$+a$ 

980 PRINT FNwi3$ ; ' I hr e Eingabe :. ";datei$; 

990 GOTO 860 
1000 RETURN 

1010 ' - 

1020 *********»*..., Grunddaten.... *********** 

1030 ’ - 

1040 ' *. Hersteller / Typ 

1050 ' - 

1060 PRINT FNwi1$;bei 1$"Fahrzeugherste11e r/Typ " ; 
1070 PRINT FNwi2$“Maximal 22 beliebige Zelchenl"; 
1080 PRINT FNwi3$;"Ihre Eingabe :. 

1090 maxiang=21 :GOSUB 850: typ$=datei$ 

1100 IF LEN(typ$ )< 2 THEN 1080 

1110 PRINT FNwi4$;''. fahrzeugherste' 1er / Typ :... 

. ":typ$ 

1120 PRINT FNw t 5$;c1s$; 

1130 RETURN 

1140 ' - 

1150 *.... Unterprogramm Beschaffungswert 

1160 ' - 

1170 PRINT FNwi1$;bei 1$,"Beschaffungswert ( 2 000. 
00 - 500 000.00 DM)"; 

1180 maxstel1=6:GOSUB 460:bw=b:b=0 

1190 IF bw < 2000 OR bw>500000! THEN GOTO 1180 

1200 PRINT FNwi4$PRINT FNat$( 3, 1);USING" 1 Bescha 

ffungswert (Mt##*#,.## DM";bw 

1210 PRINT FNwil$;cls$;:PRINT FNw13$;c1s$; 

1220 RETURN 

1230 ' -- 

1240 ' *. Unterprogramm Lebensdauer 

1250 ' - 

1260 PRINT FNwi1$ ; be 11 $;“Zu erwartende Lebensdauer 
(3-15 Jahre ) 

1270 maxstel1 =2: GOSUB 460:1dj=b: b=0 

1280 IF 1d J < 3 OR 1d j >15 THEN GOTO 1270 

1290 PRINT FNwi4$ ;: PRINT FNat$(4.1); USI NG" 2 Lebens 

dauer. ## Jahre" ; 1 d j 

1300 PRINT FNwi1$; cl s$;:PRINT FNwi3$;cts$; 

1310 RETURN 

1320 ' - 

1330 ' *. Unterprogramm Restwert 

1340 1 - 

1350 PRINT FNwi1$;bei 1$; "Restwert. (0 - 500 000 DM 

) 


1360 maxstel1=6:G0SUB 460rw=b:b=0 
1370 IF rw >5000001 THEN 1360 

1380 PRINT FNwi4$PRINT FNat$(3,43); USING"3 Restw 

ert . ##»###, . DU DM" ; rw 

1390 PRINT FNwi l$;cls$; :PRINT FNwi3$;cls$; 

1400 RETURN 

1410 ' - 

1420 ' *. Unterprogramm Fahrleistung 

1430 ' - 

1440 PRINT FNwil$;bel 1$; "Zu erwartende Fahrlelstun 
g (l 500 - 100 000 km/Jahr ) ”; 

1450 maxstel1 =6: GOSUB 460: f1j =b:b=0 

1460 IF flj<1500 OR flj>100000! THEN GOTO 1450 

1470 PRINT FNwi4$PRINT F Nat$(4,4 3);US 1NG" 4 Fahrl 

eistung. #**## 1 »,.#» km";flj 

1480 PRINT FNwi1$; cl s$;: PRINT FNw13$;cls$; 

1490 RETURN 

1500 ' - 

1510 ' *. Unterprogramm Abschreibung 

1520 ' - 
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I—Listing 


< 74) 1530 PRINT FNwi4$; :PRINT F Nat$(6,3) ; uonj;"z e1 t a Oh l 

ngige Kosten pro Jahr";uoff$ 

< 8 5 > 1540 ka =( bw- rw ) /1 dj 

< 3> 1550 PRINT FNwi4$; :PRINT FNat$(8, 3) ;US1 NG" Absch re i 

bung. ####», .#« OM";ka 

< 69 > 1560 PRINT FNwi1$;c1s$PRINT FNwl3$;c1s$; 

<10> 1570 RETURN 

<18 > 1580 ’ - 

<21> 1590 ' *. Unterprogramm Zinsen 

< 9 5 > 1600 ' - 

< 24 > 1610 PRINT FNwi1$;bei 1$;"Ermittlung der kalkulator 

Ischen Zinsen. ( Zinssatz 0 - 15 % 

<80> 1620 maxste11=2:maxkste11 =2 

< 90 > 1630 GOSUB 460:maxk3te11=0:zs=b:b=0 

< 8 7 > 1640 IF Z s > 15 THEN GOTO 1620 

< 9 > 1650 kz=((bw+rw)/2)*(zs/100) 

< 29 > 1660 PRINT FNw14$; :PR I NT FNat$(9,1>;USING " 5 Zinsen 

<*#.** %) ####*#,.»» OM";zs;kz 

< 74 > 1670 PRINT FNwi1$;c1s$; :PRINT FNwi3$;cls$; 

< 15 > 1680 RETURN 

< 23 > 1690 ' - 

< 9 7 > 1700 ' *. Unterprogramm Versicherung 

< 1> 1710 ' - 

< 7 2 > 1720 PRINT F Nw i 1 $ ; be 1 1 $ ; '' Ve r s i c he r u n g s kos t e n { 200 

- 3 000 DM/Jahr )"; 

< 66 > 1730 maxste11=4:GOSUB 460:vskj = b:b = 0 

< 85 > 1740 IF vs k j < 200 OR vskj>3000 THEN GOTO 1730 

< 34 > 1750 PRINT FNwi4$; :PRINT FNat$(10,1) ;USING"6 Versi 

cherung. *##*,.## DM";vskj 

< 73 > 1760 PRINT FNwi1$; c1s$; :PRI NT FNwi3$;c!s$; 

< 1 4 > 1 770 RETURN 

< 22 > 1780 - - 

<25> 1790 ' *. Unterprogramm Steuer 

< 0> 1800 • - 

< 67 > 1810 PRINT FNwi1$;bei 1$;"KFZ - Steuer (0-1 500 

DM/Jahr ) 

< 9 > 1820 maxstel1=4:G0SU8 460: st=b:b=0 

< 66 > 1830 IF st < 0 OR st>1500 THEN GOTO 1820 

< 1> 1840 PRINT FNwi4$PRINT FNat$ ( XI, 1); USING"7 Steue 

r . **#*; . #* DM" ; st 

< 72 > 1850 PRINT FNwi1 $; c1s$; :PR I NT FNwi3$;c1s$; 

<13> 1860 RETURN 

< 21 > 1870 ' - 

< 2 4 > 1880 ' ». Unterprogramm Garage 

< 2 7 > 1890 ' - 

< 19> 1900 PRINT FNwi1$;bell$;"Kosten f}r Unterstellung 

( 0 - 200 DM/Monat ) 

< 32 > 1910 maxstel1=3;GOSUB 460:gkm=b;b=0 

< 0> 1920 IF gkm<0 OR gkm>200 THEN GOTO 1910 

< 19 > 1930 g kj = gkm*12 


< 9 4 > 1940 PRINT FNwt4$; ;PRI NT FNat$(12,1>;USING'B Garag 

o. #**#, . ft* DM" ;gkj 

< 7 4 > 1950 PRINT FNwi1$;c1s$; :PRINT FNwi3$;cls$; 

< 15 > 1960 RETURN 

< 23 > 1970 ' - 

< 2 6 > 1980 ' *. Unterprog ramm Kraftstoff 

< 29 > 1990 ' - 

< 96> 2000 PRINT FNwi4$| :PRINT FNat$( 6, 45 );uon$; "Mengena 


bh(ng1 ge Kosten pro jahr";uoff$ 

<64> 2010 PRINT FNwi 1$; be1 1 $;"Kraf t s t o ffver braueh ( 3 - 
60 Ltr/100 KM) "; 

< 89 > 2020 maxstell =2:ma*kstel1=2: GOSUB 4 60: k sv = b:B = 0 

< 9 6 > 2030 IF ksv < 3 OR ksv>60 THEN GOTO 2020 

< 5 4 > 2040 PRINT FNwi1$;c1 s$; :PRI NT FNwi3$;cls$; 

< 70 > 2050 PRINT FNwilJ;"Kraftstoffpreis (0,7 - 1.9 DM/1 

t r ) " ; 

<66> 2060 maxsteI1=1: maxkste11 =2 

<89> 2070 GOSUB 4 60: maxkste11 =0; k sp=b: b= 0 

< 6 7 > 2080 IF ksp<0.7 OR ksp>1.9 THEN GOTO 2060 

< 52 > 2090 kkj=ksv*ksp*f1 j/100 

< 8 7 > 2100 PRINT FNwi4$; :PRINT FNat$(8,42) ;USING" 9 Kraf 

tstoff. #####,.** OM"; kk J 

< 45 > 2110 PRINT FNat$(9.42); USING". (Verbrauch #* . * 1/1 

00 km )" ;ks v 

< 24 > 2120 PRINT FNat$(10,42);USING". (Preis *.»» DM/Lit 

e r ) " ; k s p 

< 5 3 > 2130 PRINT FNwi1 $;c1s$; :PRINT FNwi3$;cls$; 

< 9 3 > 2140 RETURN 

< 2 > 2150 ' - 

< 5> 2160 * . Unterprogramm Reifen 

< 8 > 2170 ' --- 

< 2 > 2180 PRINT FNwil$;bel1$;"Lebensdauer der Reifen ( 

10 000 - 120 000 KM )" ; 

< 9 3 > 2190 maxstell=6:GOSUB 460:rl=b:b = 0 

< 1 5 > 2200 IF r1<10000! OR rl>120000! THEN GOTO 2190 

< 49 > 2210 PRINT FNw11 $;c1s$; :PR INT FNwi3$;cls$; 

< 23 > 2220 PRINT f Nwi 1$ Kosten f)r einen Reifen ( 25 - 

900 DM )"; 

< 56 > 2230 maxstel1 = 3:GOSUB 460:erp=b:b=0 

<15 > 2240 IF e r p< 2 5 OR erp>900 THEN GOTO 2230 

< 4 3 > 2250 rk = erp«4*f1 J/rl 

< 7 > 2260 PRINT FNwi4$; ; PR I NT FNat$(11,42 ) ;USING"10 Rei 

fen . ###*..»# DM" ;rk 

< 4 6 > 2270 PRINT FNat$(12,42);USING". (Lebensdauer ***** 

* km )";r 1 

< 90 > 2280 PRINT FNat$(13,42) ;USING". (Preis **# DM/Reif 

en ) " ; erp 

< 73> 2290 PRINT FNwi1$;c1s$; :PRINT FNwi3$;c1s$, 

< 85 > 2300 RETURN 

< 9 3> 2310 ' - 

<96> 2320 ' Unterprogramm Wartung - Inspektion 

< 0> 2330 - - 

< 9 > 2340 PRINT FNwi1$;be1 1 $;"Kosten f)r Wartung und In 

spektlon ( 80 - 1500 DM/Jahr 


< 62 > 

< 8 > 

< 72 > 

< 13> 

< 9 2 > 
<95 > 

< 9 8 > 

< 9 1 > 

< 29 > 

< 75> 

< 9 > 

< 71 > 

< 12 > 
< 20 > 

< 94 > 

< 9 7 > 

< 93 > 

< 20 > 

< 40 > 

< 32 > 


< 3 7 > 

< 8 5 > 

< 12 > 


< 33 > 

< 8 8 > 


< 39 > 


< 9 7 > 

< 6 > 

< 9 > 

< 1 2 > 

< 4 5 > 
<95> 

< 62 > 


< 5 0 > 

< 45 > 

< 20 > 

< 44 > 

< 7 > 

< 14) 

< 59 > 

< 7 > 

< 3) 

< 88 > 

< 2 7 > 

< 1 4 > 

< 30 > 

< 68 > 

< 1 3 > 

< 4> 


<62 > 
<94> 

< 9 6 > 

< 2 7 > 
<29 > 

< 3> 

< 62 > 

< 9 3 > 

< 2 4 > 
<26> 

< 28 > 

< 4 4 > 

< 36 > 

< 1 > 
< 2 > 
<84 > 
< 86 > 
< 60 > 

< 63 > 

< 9 7 > 

< 1 > 

< 4) 

< 79) 

< 40 > 

< 85 > 

< 19) 

< 35 > 
<11> 
<51 > 

< 68 > 

< 3 3 > 

< 88 > 


2360 IF kwi< BO OR kw1>1500 THEN GOTO 2350 

2370 PRINT FNwi4$PRINT FNat$( 14,42 ) ; USI NG"11 War 

tung - Inspekt.. ##*#,.** DM";kwi 

2380 PRINT FNwi1$; cl s$PRINT FNw13$;cls$; 

2390 RETURN 

2400 ' - 

2410 *.... Unterprogramm sonstige Kosten 

2420 ' - 

2430 PRINT FNwi1$;be11 $; "Sonstige Kosten ( 0 - 150 
0 DM/Jahr )“; 

2440 maxstel1 =4: GOSUB 460:sok=b: b=0 

2450 IF SOk < 0 OR sOk>1500 THEN GOTO 2440 

2460 PRINT FNwi4$PRINT FNat$(1 5, 42); US ING"1 2 Son 

stige Kosten.... *#»»,.** DM";sok 

2470 PRINT FNwi l$;cls$;: PRINT FNw13$;cls$; 

2480 RETURN 

2490 1 - 

2500 ' * . Kostenberechnung 

2510 ' - 

2520 kfzkj=ka+kz+vskj+st+gkj+kkj+rk+kwi+sok 
2530 PRINT FNwi4$ PRINT FNat$( 18,5) ; 1 on$; ". KFZ - 
Kosten :. ";1 off $; 

2540 PRINT FNat$(20,1);10n$;“. pro Jahr mit Wertve 
rlust: ioff$ PRINT USING" ****#,,## DM'';kfzkj 

2550 PRINT FNat$(21,1); ion$; ". ohne Wertve 

rlust: "; 1off$;:PRINT USING" *****,,## DM";kfzkj-k 


2560 k fz km= kfzkj/12 
2570 PRINT FNat$(18,44);ion$; 1 
Verlust: 1off$;:PRINT USING 1 

2580 PRINT FNat$(19,44);lon$;' 
Verlust: " ;ioff£; :PR I NT USING' 
j-ka)/12 

2590 kfzkkm=kfzkj/f1J 

2600 PRINT FNat$(20,44);ion$; 

Verlust: " ; ioff$; :PRINT USING' 


. pro Monat mit Wert 
***** , ,** OM";kfzkm 

. ohne Wert 

*****,.*# DM";( kfzk 


. pro KM... mit Wert 
##*#*,.** OM";kfzkk 


m 

2610 PRINT FNat$(21,44) ; ton$; ". ohne Wert 

verlust: " ;ioff $; :PR I NT USING" ####*,.#* 0M";(kfzk 
j-ka)/flj ; 

2620 RETURN 

2630 ' - 

2640 ' *. Daten laden 

2650 ‘ - 

2660 PRINT F Nwi4$; c1 s$ 

2670 WIDTH 85 

2680 IF FIND$( "*. kfz")="" THEN PRINT bell$;"Keine 
Dateien vorhanden"; bei 1 $:FOR 1 = 1 TO 2500:NEXT:PRIN 
T c1 s$;:WI DTH 255,255:GOTO 3140 
2690 FOR i=l TO 120 

2700 a$=LEFT$((FIND$("*.kfz" , i) > ,8) 

2710 IF a$="" THEN GOTO 2740 
2720 PRINT a$; SPC(5)J 
2730 NEXT 

2740 WIDTH 255.255 

2750 PRINT FNwi1$; "Bi tte Dateinamen ohne Zusatz ei 
ngeben und RETURN drjeken."; 

2760 PRINT FNwi2$; c1 s$; "Be 1 Eingabe von R erfolgt 
Ricksprung "; 

2770 PRINT FNwi3$;"Ihre Eingabe : 

2780 max1 ang=7:GOSUB 850 
2790 PRINT FNw14$; c1 s$; 

2800 IF datei$="r" OR datei$="R" THEN PRINT FNwi5$ 
;cls$;:GOTO 3080 
2810 a$=datei$+".KFZ" 

2820 IF F IND$(a$)="" THEN GOTO 2750 
2830 OPEN "I " , 1,a$ 

2840 INPUT * 1,typ$.bw,1 d j,rw,f1 j,ka, zs,kz, vskj,st. 
gkj.ksv.ksp.kkj.rl,erp,rk,kw1,sok,kfzkj.kfzkm,kfzk 
km 

2850 CLOSE 1 
2860 GOSUB 1110 
2870 GOSUB 1200 
2880 GOSUB 1290 
2890 GOSUB 1380 
2900 GOSUB 1470 
2910 GOSUB 1530 
2920 GOSUB 1550 
2930 GOSUB 1660 
2940 GOSUB 1750 
2950 GOSUB 1840 
2960 GOSUB 1940 

2970 PRINT FNw14$; : PR INT FNat$(6,45 ); uon$; "Mengena 
bhfngige Kosten pro Jahr";uoff$ 

2980 GOSUB 2100 
2990 GOSUB 2260 
3000 GOSUB 2370 
3010 GOSUB 2460 
3020 GOSUB 2530 
3030 GOTO 3120 

3040 1 - 

3050 ' *. Hauptp rog r amm 

3060 ' - 

3070 GOSUB 230 

3080 PRINT FNwi2$;" Sollen bereits bestehende Date 
n geladen werden (J/N) ? 

3090 a$=INKEY$:I F a$='"' THEN 3090 

3100 IF a$="J" OR a$="J" THEN 3110 ELSE 3140 

3110 GOTO 2640 

3120 PRINT FNwi5$; c 1s$; 

3130 GOTO 3200 

3140 PRINT FNwi2$; c1 s$; 

3150 Z=1 

3160 ON z GOSUB 1060.1170,1260,1350,1440,1530.1610 
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Listing—| 


<15 > 3170 z = z+l 

< 5 > 3180 IF z =16 THEN 3200 

< 36 > 3190 GOTO 3160 

< 2 6 > 3200 FOR x = l TO 1500:NEXT x 

< 2 6> 3210 PRINT FNw 12$; ion$". (l) Kostengrupp 

en {ndern. (3) Programm beenden. 


< 64 > 


< 11 > 

< 19 > 

< 52 > 

< 8 > 
< 11 > 

< 14 ) 

< 85 > 

< 45 > 

< 98 > 
<45 > 
< 37 > 

< 72 > 

< 88 > 

< 77 > 

< 13 > 

< 1 6 > 

< 19 > 

< 5 4 > 

< 76 > 

< 8 4 > 

< 1 > 
< 18 > 
< 63 > 

< 7 > 

< 1 5 > 

< 18 > 
< 21 > 

< 55 > 

< 78 > 

< 8 6 > 

< 59 > 

< 3 > 
<11 > 

< 14 > 

< 1 7 > 

< 78 > 

< 3 ) 

< 82 > 

< 9 8 > 

< 16 ) 
< 61 > 
l 5 ) 

< 13 ) 

< 16 ) 

< 19 ) 

< 79 > 

< 6 5 > 

< 73 ) 

< 4 2 > 

< 77 > 

< 6 3 > 

< 7 > 

< 20 > 

< 50 > 

< 52 > 

< 5 4 > 
<51 > 

< 5 2 > 

< 25 > 

< 2 7 > 
< 11 > 

< 14 > 

< 1 7 > 

< 88 > 

< 31 > 

< 9 6 > 

< 1 2 > 

< 8 ) 

< 3 ) 

< 65 > 

< 3 7 > 

< 3 3 > 

< 2 7 > 

< 3 6 > 

< 8 3 > 

< 6 3 > 

< 4 7 > 

< 4 8 > 

< 4 4 > 

< 39 > 

< 31 > 


3220 PRINT FNwi3$;" . (2) Pro to Ko 11ausdru 

ck . (4) Daten abspeichern. 

... ";coff$;ioff$; 

3230 GOSUB 790 

3240 PRINT FNw15$;cls$; 

3250 ON VAL(a$ ) GOTO 3290,3860,4310,4400 

3260 ' - 

3270 ' *. Kostengruppen {ndern 

3280 ' - 

3290 PRINT FNw12$; c1 s$ ; 

3300 PRINT FNwi 2$;con$;"Welche Kostengruppe (1-12) 
soll ge(ndert werden -> 

3310 PRINT be11 $ ; 

3320 GOSUB 650 

3330 a k = b: b = 0 

3340 PRINT FNwi2$;C1s$; 

3350 ON ak GOSUB 3400,3500,3580,3680,3750,3760,377 
0,3780,3790, 3800,3810,3820 
3360 GOTO 3210 

3370 ' - 

3380 ' *. Beschaffungswert {ndern 

3390 - 

3400 GOSUB 1170 

3410 ka=(bw-rw)/ 1dj 

3420 GOSUB 1550 

3430 kz= ((bw+ rw)/2)*(zs/100) 

3440 GOSUB 1660 
3450 GOSUB 2520 
3460 RETURN 

3470 ' - 

3480 ' » . Lebensdauer {ndern 

3490 ' - 

3500 GOSUB 1260 
3510 ka=( bw-rw)/ld j 
3520 GOSUB 1550 
3530 GOSUB 2520 
3540 RETURN 

3550 ' - 

3560 ' *. Restwert {ndern 

3570 ‘ - 

3580 GOSUB 1350 

3590 ka=(bw-rw )/1dJ 

3600 GOSUB 1550 

3610 kz=((bw+rw)/2)*< zs/100) 

3620 GOSUB 1660 
3630 GOSUB 2520 
3640 RETURN 

3650 ' - 

3660 ' *. Fahrleistung (ndern 

3670 ' - 

3680 GOSUB 1440 

3690 kkj=ksv*ksp*f lj/100 

3700 GOSUB 2100 

3710 rk=erp»4*f1j/rl 

3720 GOSUB 2260 

3730 GOSUB 2520 

3740 RETURN 

3750 GOSUB 1610:G0SUB 2520:RETURN 
3760 GOSUB 1720:G05UB 2520:RETURN 
3770 GOSUB 1810:GOSUB 2520:RETURN 
3780 GOSUB 1900:G0SUB 2520:RETURN 
3790 GOSUB 2000:GOSUB 2520:RETURN 
3800 GOSUB 2180: GOSUB 2520:R£TURN 
3810 GOSUB 2340: GOSUB 2520:R£TURN 
3820 GOSUB 2430:GOSUB 2520:RETURN 

3830 ' - 

3840 ' * . Drucken 

3850 ' - 

3860 PRINT FNwi2$; c1 s$ ; 

3870 PRINT FNw i1 $; " Bitte stellen Sie den Drucker 
auf die erste Zelle einer neuen Sette"; 

3880 PRINT FNw12$;" und drjcken Sie RETURN"; 

3890 PRINT FNwi3$;" Bei Bet{tigung der Taste >R< e 
rfolgt Rjcksprung 
3900 PRINT be11 $; 

3910 a$ = I NKEY$ : I F a$ = 

3920 IF a$=”R" OR a$= 

OTO 3210 

3930 IF a$< >CHR$ (13) THEN 3910 
3940 PRINT FNwi5$; c1 s$; 

3950 PRINT FNwi2$;"... Bitte warten 
c k t . . . " ; 

3960 LPRINT esc$+"M";esc$+” 1" +CHR$( 8);e sc$♦"W1 
c$+"4” 

3970 LPRINT 


THEN 3910 

THEN PRINT FNw15$; C1 S$,: G 


es wird gedru 


KFZ -Kostenbe rechnu 


3980 LPRINT "================: 

======": LPRINT: LPRINT:LPRINT: 


3990 LPRINT 
; typ$:LPRINT 
4000 LPRINT USING".. 

# . . ## OM";bw:LPRINT 
4010 LPRINT USING".. 
. . Jahre";ldj:LPRINT 
4020 LPRINT USING".. 

# , .## DM";rw:LPRINT 
4030 LPRINT USING".. 

KM/Jahr"; f1 j ;LPRINT 


Hersteller/Typ ";SPC( 2 2-LEN( t yp$ ) ) 


Beschaffungswert. ##### 


Lebensdauer. ## 


Restwert. 


Fahrleistung. ##### 


< 83 > 

<57> 

< 26 > 

< 89 > 

< 71 > 

< 5 > 

< 33 > 

< 18) 
<81 > 

< 30 > 

< 79 > 

< 5 7 > 

< 16) 
< 1 > 
< 10 ) 

< 32 > 


4040 LPRINT USING".. Abschreibung. #### 

#..## DM";ROUND(ka,2):LPRINT 

4050 LPRINT USING".. Zinsen <##.## %) . »Kit# 

#,.## DM";zs;ROUNDtkz,2):LPRINT 

4060 LPRINT USING".. Versicherung. #### 

#. . *# DM";vskj :LPRINT 

4070 LPRINT USING'.. Steuer. #### 

# , . ## DM";st:LPRINT 

4080 LPRINT USING"., Garage. »4## 

#,.## DM";gkj:LPRINT 

4090 LPRINT USING”.. Kraftstoff. #### 

#,.## DM";ROUND(kkj,2):LPRINT 


(Verbrauch ##.# 1/100 km)";ksv 

(Preis #.## DM/Liter)";ksp:LPR 

Re i f en. #### 

:LPRINT 

(Lebensdauer ###### km)";rl:LP 
(Preis #4# DM/Reifen)";erp:LPR 


< 8 7 > 

< 70) 

< 77> 

< 79 > 

< 15 > 

< 1 8 > 

< 92 > 

< 64 > 

< 34> 

< 6 ) 

< 17) 
<81 > 

< 61 > 

< 14> 

< 17> 

< 20 > 

< 25 > 

< 75 > 

< 2 7 > 

< 5 0 > 

< 78 > 

< 49 > 

< 12 > 

< 19> 

< 5 8 > 

< 92 > 

< 79 > 

< 65 > 

< 8 7 > 

< 11 > 
< 2 6 > 
< 2 > 

< 1> 

< 13) 

< 93 > 
<91 > 

< 16> 

< 35 > 

< 31 > 

< 83 > 

< 9 7 > 


< 60 > 

< 3 4 > 

< 71) 

< 23 > 

< 2 6 > 
< 1 > 
< 82 > 

< 9 2 > 

< 92 > 


4100 LPRINT USING 
:LPRINT 

4110 LPRINT USING 
INT 

4120 LPRINT USING 
#,.## DM" ;R0UND(rk,2) -.LPRINT 
4130 LPRINT USING" 

RINT 

4140 LPRINT USING" 

INT 

4150 LPRINT USING".. Wartung - Inspektion.... #### 
#,.## DM";kwi: LPRINT 

4160 LPRINT USING".. sonstige Kosten. #### 

#, .## DM";sOk: LPRINT 

4170 LPRINT _ 

_":LPRINT:LPRINT 

4180 LPRINT ".. Kosten pro Jahr" ;esc$+"W0";" (mit 
Wertverlust). ";esc$+"W 1";: LPRINT USING"*####,.## 
DM";kfzkj:LPRINT 

4190 LPRINT ". " ;esc$+"W0" ; " (ohne 

Wertverlust)";esc$+"Wl"; : LPRINT USING" #####,.## D 
M";kfzkj-ka:LPRINT 

4200 LPRINT Kosten pro Monat";esc$i"W0" (mit 

Wertverlust) "; esc$+ "W1 LPRINT USING"#####,.## D 
M" ; kfzkj/12:LPRINT 

4210 LPRINT ". ";esc$+"WO";" (ohne 

Wertverlust) ";tac$+"W1",: LPRI NT USING”#####,.## 
OM";(kfzkj-ka)/12:LPRINT 

4220 LPRINT Kosten pro Km.. “; esc$t"wo";" (mi t 

Wertverlust) 11 ; esc$ + "Wl ” ; : LPRI NT USING"#####,.## D 
M" ; kfzkkm:LPRINT 

4230 LPRINT ". "; esc$+"W0";" (ohne 

Wertverlust) esc$+"W1";: LPRINT USING"#####,.## 
DM" ;( kfzkj-ka)/fl j: LPRINT 
4240 LPRINT esc$+"W0";esc$+"5" 

4250 LPRINT CHR$(12); 

4260 PRINT FNwi2$ ;cl s$; 

4270 GOTO 3210 

4280 ' - 

4290 # . Endabfrage 

4300 " - 

4310 PRINT F Nw 12$;c1 s$; 

4320 PRINT " (1) Programm beenden . (2) Neusta 

rt. (3) Zurjck"; 

4330 PRINT bei I $; 

4340 GOSUB 790 

4350 PRINT FNw12$;clo$;:PRINT FNwi3$; c1s$; 

4360 ON VAL(a$) GOTO 4710,10,3210 

4370 ' - 

4380 Oaten speichern 

4390 ' - 

4400 PRINT FNwi4$;cls$ 

4410 WIDTH 85 
4420 FOR 1=1 TO 120 

4430 a$=LEFT$( ( FIND$ (" *. kf z",1 )), 8) 

4440 IF a$="” THEN GOTO 4470 
4450 PRINT a$;SPC (5); 

4460 NEXT 

4470 WIDTH 255,255 

4480 PRINT FNwilJ;" Bitte geben Sie jetzt einen ma 
x. 8 Zeichen langen Dateinamen ein”; 

4490 PRINT FNw12$; M Keine Sonder- oder Leerzeichen 
(nur RETURN bewirkt Rjcksprung ins Menue)"; 

4500 PRINT F Nw13$;"Ihre Eingabe : "; 

4510 maxlang=7: GOSUB 850 

4520 IF datel$="" THEN PRINT FNw15$; c1 s$,FNwi4$,c1 
s$;: GOTO 2 B60 

4530 IF FIND$(datei$+".kfz" )="" THEN GOTO 4600 
4540 PRINT FNwi5$; cI s$; 

4550 PRINT FNwi 1$; bei 1$;ion$;" Achtung !!! Datei e 
xistiert bereits !. ";ioff$; 

4560 PRINT FNwi2$;" ] be rspei chern (J/N) ???"; 

4570 a$=INKEY$:IF a$="" THEN 4570 
4580 IF UPPERS(a$ )="J" THEN GOTO 4600 
4590 PRINT FNwi5$;cls$;: GOTO 4480 
4600 PRINT F Nwi5 $; c1 s$; 

4610 PRINT FNwi2$;" Bitte warten, die Daten werden 
auf Diskette gespeichert"; 

4620 a$=datei$+".KFZ" 

4630 OPEN "O",1 ,a$ 

4640 WRITE #1,typ$,bw,1 d j,rw,f1 j, k a, zs,kz,v s k J,st, 
gkj,ksv,ksp,kkj,rl,erp,rk,kwi,sok,kfzkj,kfzkm,kfzk 
km 

4650 CLOSE 1 

4860 PRINT FNw15$; c1 S$; 

4670 PRINT FNwi4$;cls$;:GOTO 2860 

4680 ' - 

4690 * . Programmende 

4700 ' - 

4710 PRINT FNwiO$;cls$;con$; 

4720 WIDTH 90,90 
4730 ENO 
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[—Tips & Tricks 


100,- DM 
für 1 kByte 

Die Heraus¬ 
forderung 



Die 1-kByte-WahI ist im vollen Gange, die ersten Karten 
sind bereits in der Redaktion eingetroffen, und es 
scheint, als ob die Beteiligung ebenso große Dimensio¬ 
nen erreicht wie die Teilnahme am allmonatlichen 
1-kByte-Programmierwettbewerb. 

Nach den ersten Hochrechnungen deutet sich bereits ein 
kleiner Trend an, wer allerdings der große Gewinner 
sein wird, das wird sich in den nächsten Wochen zeigen. 
Wir blicken gespannt auf die Dinge, die da kommen, 
und werden das Endergebnis dann spätestens in der 
August-Ausgabe bekanntgeben. 


Doch nun kommen wir erst einmal zu den neuen geistigen 
Ergüssen unserer Leser. Wie jeden Monat zeigen wir Ihnen, 
was dabei herauskommt, wenn sechs Personen sechs Pro¬ 
gramme mit insgesamt weniger als 6 kByte Programmcode 
programmieren. 



Aufgaben zu überlassen (wer will schon immer den Nenner 
in Primfaktoren zerlegen und bestimmen, ob diese nur aus 
Zweien und Fünfen bestehen, genau dann hätten wir es näm¬ 
lich mit einer endlichen Dezimalzahl zu tun). 

Bruch ist in dieser Situation genau das richtige Hilfsmittel. 
Das Programm erfüllt nach Eingabe von Zähler und Nenner 
des zu untersuchenden Bruchs folgende Aufgaben: 


1. Berechnung des exakten dezimalen Wertes des Bruchs 

2. Angabe, ob Dezimalzahl (un)endlich ist 

3. Art der Periode 

4. Angabe der Stelle, ab der die Periode beginnt 

5. Länge der Periode 


Die Punkte 3, 4 und 5 entfallen selbstverständlich, wenn es 
sich bei der Dezimalzahl um eine endliche handelt. Punkt 4 
taucht nur auf, wenn es sich um eine gemischt-periodische 
Zahl handelt. 

Um die Benutzerfreundlichkeit auf einem gewissen Level zu 
halten, wurden bereits bei der Eingabe der Werte Schutzab¬ 
fragen eingearbeitet, so daß nicht etwa ein permanenter Ncu- 
start verlangt wird. Sowohl Dezimalzahleneingaben als auch 
der Wert 0 (im Nenner) werden bei der Eingabe gefiltert. 

Soviel zu diesem mathematischen Werkzeug, nun brechen 
Sie mal schön. 

(Thomas Sommerfeld/jf) 


Bruch 

Das schlimmste Übel der Mathematik ist bewiesenermaßen 
die Mengenlehre. Darauf folgt lange Zeit nichts. Nach dieser 
Menge Leere schließt sich allerdings mit unglaublicher Ve¬ 
hemenz die Sparte der Bruchrechnung an. Verblüffend, wie 
viele Menschen mit diesem Bereich der Zahlenwissenschaf¬ 
ten Probleme haben. Dabei könnte alles so einfach sein, zum 
Beispiel mit Hilfe des guten CPC. 

Das Programm Bruch ist dabei nicht nur ein simples Soft¬ 
warestück, das einen gegebenen Bruch in eine Dezimal zahl 
verwandelt; das wäre sehr einfach und könnte innerhalb we¬ 
niger Minuten von fast jedem durchgeführt werden. Vorlie¬ 
gendes Kurzprogramm hat noch einiges in petto, wovon so 
mancher mathematisch Interessierte träumt. Es geht um das 
Problem der korrekten Identifikation einer Dezimalzahl. 
Wie wir wissen, existieren verschiedene Arten dieser Zah¬ 
lenform: 


- endliche Dezimalzahlen 

- unendlich nichtperiodische Dezimalzahlen 

- unendlich periodische Dezimalzahlen 

- gemischt periodisch 

- rein periodisch 




In vielen Situationen ist es nun von Interesse, ge¬ 
rade diese Eigenschaften schnell und sicher 
zu bestimmen. In so manchem Falle 
wäre zusätzlich wichtig, die Län¬ 
ge der Periode zu wissen. Es gibt 
zwar verschiedene Kniffe, die ver¬ 
schiedenen Zahlen auch ohne viel 
Rechnerei zu identifizieren, aber oft 
ist es bequemer, dem Computer diese 


Car-Raee 

Wo liegt eigentlich der Reiz beim Motorsport? Diese Frage 
gehört zu jenen, die wahrscheinlich nie zu voller Zufrieden¬ 
heit geklärt werden können. 

Die einen fasziniert das Flair der Rennbahnen, der Geruch 
nach frischem Benzin, das Heulen der Motoren und der Ge¬ 
schwindigkeitsrausch, der selbst den Zuschauer packt. 

Die Praktiker versprechen sich durch solche Material¬ 
schlachten Verbesserungen in puncto technischer Entwick¬ 
lung von Fahrzeugen. 

Andere wiederum können nicht verstehen, warum sich er¬ 
wachsene Menschen in ein unbequemes Fahrzeug zwängen, 



Bild I: Alarm auf der Erde! Außerirdische Unholde überfallen den blauen 
Planeten. Rettung tut Not! Greifen Sie als Weltretter ein 
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Bild 2: Hypozykloide berechnen bereiter nicht selten -Schwierigkeiten. Las¬ 
sen Sie die Arbeit vom CPC machen, dos Ergebnis läßt sich durchaus sehen 


um 70mal eine immer wiederkehrende Runde hinter sich zu 
bringen; wogegen sich die Zuschauer in die stickigen Dämp¬ 
fe der Abgase stellen, Genickstarre bekommen und dafür 
auch noch Mengen von Geld bezahlen. 

Daß CPC-Besitzer auch auf dem Gebiete des Motorrenn¬ 
sports dem Rest der Welt einen Schritt voraus sind, beweist 
einmal mehr ein Programm, das nicht länger als 1 kByte ist. 
Sie erleben das Röhren der Motoren, das Tempo der auf Sie 
zufahrenden Renngeschosse und brauchen keinen Moment 
lang damit zu rechnen, daß Ihnen eine dieser vierrädrigen 
Raketen über die Füße fährt. 

Der Kniff, mit dem diese Rasanz auf dem CPC verwirklicht 
wird, ist so simpel wie genial. Es werden einfach 16 ver¬ 
schieden große Figuren gemalt, wobei jede der Figuren eine 
Phase einer Bewegung darstellt. Jede Figur wird nun mit ei¬ 
nem andere Farbstift gemalt, und wenn der komplette Bewe¬ 
gungsablauf gezeichnet ist, dann werden per Laufanweisung 
die Farben gewechselt, fertig. 

(R. Götzmann/jf) 


Alien-Alarm 

Die Erde ist in Aufruhr. Hatte man eben noch ein giganti¬ 
sches Raumschiff gebaut und in allem Übermut über diese 
neue technische Errungenschaft ein ebenso riesiges War¬ 
nungsschild mit der Aufschrift 

“Vorsicht, intelligente Erdlinge. 

Befliegen auf eigene Gefahr.“ 
im Asteroidengürtel angebracht, so wunderte man sich eines 
Nachts darüber, daß unzählige Invasionsschiffe einer frem¬ 
den Galaxie vorbeischauten, um die Erde en passant in klei¬ 
nen blauen Staub zu verwandeln. 

Zu allem Überfluß führten diese Übeltäter, die sich nicht ein¬ 
mal durch das Warnungsschild abhalten ließen, ihre Invasion 
durch 14 parallel liegende Zeittunnel durch. Die überaus in¬ 
telligenten Erdlinge wurden sich über den Ernst der Situation 
erst richtig klar, als ein Raumspruch des gigantischen Schild¬ 
trägers ankam, der da sagte, daß sich die Ankunft wegen To¬ 
talausfalls der sanitären Anlagen um etwa drei Wochen ver¬ 
zögern sollte. 

Was blieb anderes übrig, als die veralteten Flugmaschinen 
aus dem Hangar zu holen und die Invasion damit zu stoppen. 
Natürlich wurden Sie für dieses Himmelfahrtskommando 
ausgewählt, und nun sitzen Sie in einem engen Cockpit und 


retten die Erde. Mit dem Joystick ha¬ 
ben Sie Ihr Fluggerät nach links und 
rechts zu bewegen, je nachdem, aus 
welchem Zeittunnel sich gerade 
ein fremdes Schiff auf die Erde zu¬ 
bewegt. Mit dem Feuerknopf schicken 
Sie den Böslingen kleine explodierende Be¬ 
grüßungsgeschenke. Für jeden Treffer erhalten 
Sie ein paar Punkte, und die entscheiden am Schluß dar¬ 
über, ob Sie Ihre Aufgabe zur Zufriedenheit der Erdlinge 
löst haben. Das Spiel ist genau dann zu Ende, wenn einer 
Unholde auf dem blauen Planeten landet. 



ge- 

der 


(Andreas Briggemann/jf) 


Steinschlag 

Als Sie mit einer Gruppe amerikanischer Touristen die letzte 
Zeche in Dortmund besuchten, gelangten Sie durch einen 
dummen Zufall in einen Gang, der eigentlich gesperrt war. 
Kaum waren alle in jenem Teil des Schachtes versammelt, als 
das Unglück seinen Lauf nahm. Ein Husten brachte den Berg 
in heftige Vibrationen, und Steine begannen von der Decke 
gen Boden zu fallen. 

Soviel zur Situation. In dieser Lage finden Sie sich im CPC 
wieder. Unregelmäßig bröckelnde Steine bewegen sich vom 
oberen Rand des Spielfelds auf Sie zu. Mit dem Joystick müs¬ 
sen Sie nun diesen Steinen ausweichen, ein nicht einfaches 
Unterfangen, bleiben die Brocken doch nach dem Fall noch 
einige Zeit auf dem Boden liegen und dürfen während dieser 
Zeit auch nicht berührt werden. So kann es mitunter zu üblen 
Situationen kommen. Wenn sich direkt neben Ihnen Stein¬ 
haufen auf der Erde türmen und von der Decke ein anderer 
Brocken die Lücke zu schließen droht, wird es brenzlig. 

Dazu kommt, daß die Amerikaner ab und zu zwischen den 
Steinen auftauchen und darauf warten, von Ihnen gerettet zu 
werden. Das geschieht durch Berührung mit den Figuren der 
Touristen, doch ist es meist nicht einfach, sich den Weg zu 
diesen zu bahnen. 

Gepunktet wird in diesem Spiel immer dann, wenn Sie es 
schaffen, einen Touristen vor den herabfallenden Geschos¬ 
sen zu retten. Sollten Sie selbst in die mißliche Situation 
kommen, von einem herabfallenden Stein getroffen zu wer¬ 
den, so neigt sich das Spiel ruckartig dem Ende zu. 

(Andreas Briggemann/jl) 


Hypozykloid 

Nicht um fallende, brennende Himmelskörper, intergalakti¬ 
sche grüngestreifte Außerirdische oder haarige Mikroorga¬ 
nismen geht es in diesem Programm. Vielmehr sollten die 
Assoziationen bei dem Wort Hypozykloid im Bereich der 
Mathematik Fuß fassen. Um was geht es aber genau? 

Der Begriff Hypozykloid wird dann verwendet, 
wenn zwei Röhren ineinander rotieren und 
die Bahn der rotierenden Röhren aufge- , X 

zeichnet wird. Allerdings ist diese 
Erklärung ebenso simpel wie un¬ 
verständlich, daher greifen wir das 
Thema besser von einer anderen Seite 
auf. 



6 / 7’90 PC 87 
















r~Tips & Tricks 


Sic alle kennen die berühmten Spiro- 
graphen. Jene besonders in den sieb- 
^ Vrf - z ‘ ger Ja * iren ^liebten Zahnrad- 
URäl Y : ' Zeichner beruhten auf diesem Prinzip. 

Ein Zahnrad wurde innerhalb eines Zahn¬ 
radringes rotiert, wobei das Rad verschiedene 
Löcher aufwies, in die man einen Kugelschreiber 
einführen konnte. Drehte man nun das Rad, so entstan¬ 
den fantastische Figuren, die teilweise den verschnörkelten 
Mustern von Eisblumen glichen. Verschieden große Zahnrä¬ 
der oder -ringe brachten dabei verschiedenste Formen und 
Figuren zustande. 

Genau diese Linien sind nun aber nichts anderes als vollkom¬ 
men regelmäßige Strukturen, die sich mit entsprechenden 
mathematischen Funktionen beschreiben lassen. Die abhän¬ 
gigen Werte sind dabei natürlich die Radien des Ringes und 
des Rades. Unser Programm nimmt Ihnen nun die nicht gera¬ 
de einfache Berechnung solcher Figuren ab. 

Sie brauchen dabei lediglich die Werte der Radien einzuge¬ 
ben. Hypozykloid erstellt daraufhin ein Koordinatensystem 
auf dem Monitor und zeichnet den Graphen hinein. Probie¬ 
ren Sie nach Belieben Werte aus, wobei natürlich der Ringra¬ 
dius größer sein sollte als der des Rades. 

(Lars Ewering/jf) 

FASTM1 

Eine Hilfe für all jene, die mit dem Tempo der Bildschirm¬ 
ausgabe des CPC in Modus 1 unzufrieden sind, bieten wir 
mit dem Programm FASTM1. Es beschleunigt die Ausgabe 
um ein Vielfaches, mit der kleinen Einschränkung, daß es 
nicht mehr möglich ist, den Transparentmodus zu ver¬ 
wenden. 

Das Programm ist leider nur auf dem CPC 664 und auf dem 
CPC 6128 lauffähig, aber dafür bietet es noch einen weiteren 
Luxus: Es wird keine Veränderung am HIMEM gemacht, 
das heißt, es steht weiterhin der volle Speicherplatz zur Ver¬ 
fügung. Allerdings dürfen vom aktiven Assemblerprogram¬ 
mierer die folgenden Speicherstellen, die normalerweise un¬ 
benutzt sind, nicht angesprochen werden: 

L der von BASIC unbenutzte Speicherplatz #B0A5 bis 
# BOFF; 

2. der im ortsfesten RAM unbenutzte Speicherplatz von 
AMSDOS #BE79 bis #BE7C. 

Dieser Speicherplatz wird vollständig ausgenutzt. Es kann 
kein einziges Byte davon verwendet werden. 

Das Programm speichert den aktuellen HIMEM in der Varia¬ 
ble h % und setzt HIMEM aul # 9FFF. Danach wird der Ma¬ 


schinencode ab Adresse # A000 in den Speicher “gePOKEt“ 
und aufgerufen. Das Maschinenprogramm kopiert die Text¬ 
routine ab Adresse #B0A5 in den Speicher, rettet den Inhalt 
der Adressen #BDD3-#BDD5 und patcht die Indirection 
ab # BDD3. Danach zeigt dort ein JP-Befehl auf die Adresse 
#BDD3. Die Textroutine holt sich den Modus aus der 
Adresse #B7C3 und überprüft den Inhalt. Ist Modus 1 nicht 
aktiv, so ruft sie die alte Routine auf. die dann das Zeichen 
wie normal auf den Bildschirm zeichnet. Ist jedoch Modus 1 
aktiv, so wird das Zeichen lichtschnell auf den Bildschirm 
gezeichnet. 

Ist das Maschinenprogramm beendet, so wird der HIMEM 
wieder auf den alten Weit gesetzt. So merkt ein aufgerufenes 
Programm gar nicht, daß ein Patch aktiv ist, da keine 
HIMEM-Veränderung zu bemerken ist. Der Patch arbeitet 
hervorragend mit anderen Patches zusammen, die auch die 
Indirection verändern. Er sollte allerdings zuletzt aufgerufen 
werden. Ein Beispiel von der Geschwindigkeit der Routine 
kann man sich wie folgt machen: 


1. MODE l eingeben 

2. Die Systemdiskette einlcgen 

3. CAT eingeben 

4. FASTM1 starten 

5. Die Systemdiskette einlegen 

6. CAT eingeben 


(Michael Zimmerer/jf) 


Die Bedingungen 

Hier die Bedingungen unseres Wettbewerbs: Wir suchen 
komplette Programme (bitte ohne Steuerzeichen!), die 
funktionsfähig möglichst auf allen drei CPCs laufen (was 
nicht heißen soll, daß wir bei besonders guten keine Aus¬ 
nahme machen) und die nicht länger als 1 kByte sind (An¬ 
zeige auf dem Datenträger gilt!). Der Preis für solche Pro¬ 
gramme beträgt 100,- DM. Senden Sie uns Ihre Werke 
(maximal zwei Programme!) auf Datenträger (Diskette 
oder Kassette) mit Programmbeschreibung (möglichst in 
ASCII-Fonn mit auf dem Datenträger) zu, und zwar an den 
DM V-Verlag 

Redaktion “PC Amstrad International“ 
Postfach 250 
Stichwort 100,— DM 
3440 Eschwege 


für 464-664-6128 

r 


10 MODE 2 [513] 

20 INPUT"Zae hl er"; x [ 1258] 

30 IF x < >INT(x)OR x <1 THEN 20 [2445] 

40 INPUT"Nenner";y [1221] 

50 IF y< >INT(y)OR y<2 THEN 40 [2487] 

60 PRINT [ 36 1] 

70 PRINT x"/"y" = " INT(x/y)"."; [1351] 

80 IF x/y >1 THEN a=INT(L0G10(y/x) + l)ELSE a [2683] 
= 0 

90 a=a+y [7l7] 

100 DIM c(a) [ 2 73] 

110 FOR b=l TO a [1297] 

120 x=x-y*INT(x/y) [1914] 

130 c(x)=c(x)+b [972] 

140 IF x=0 THEN PRINT:PRINT:PRINT"End 1iche [5576] 



Dezimal zahl mit " b-1"Nachkommaste 11enGO 
TO 250 

150 IF b=l THEN 170 
160 IF c(x) < >b THEN 200 
170 x=x*10 
180 PRINT I NT(x/y ) ; 

190 NEXT 

200 PRINT:PRINT:PRINT“Unendl i che Dezimalza 
hl M 

210 IF c(x)=b+1 THEN PRINT"Rein-period1 sch 
PRINT"Per 1 öden 1aenge = "b-l:GOTO 250 
220 PRINT“Gemischt-peri odi sch" 

230 PRINT"Per1odenbeginn an der "c(x)-b". 
Nachkommaste 11e" 

240 PRINT"Laenge = "2*b-c(x) 

250 PRINT:PRINT" Nochmal (J/N) ?" 

260 a$=UPPER$(INKEY$):IF a$=""THEN 260 
270 IF a$="J"THEN RUN 
280 END 
listing Bruch 


[648] 

[ 1295 ] 
[1030] 
[ 875 ] 
[350] 
[2641] 

[4498] 

[2324] 

[3794] 

[2589] 
[1980] 
[1784] 
[1066] 
[ 110 ] 
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Tips & Tricks—i 


10 MODE 0:INK 0,13:FOR a=l TO 15:INK a,0:N [31541 
EXT:BORDER 13 


20 FOR a=0 TO 400 STEP 2:PLOT 640,a:DRAWR 
-(a/26)“2,0,1:NEXT:FOR a=PI/2 TO PI STEP 0 
.01:PLOT 0,400+COS(a)*110:DRAWR SIN(a)*100 
,0:NEXT:1=1:f=o.1 

30 FOR c=0 TO 5 STEP 0.4:f=f+0.2:1=1+1:FOR 
d=0 TO 1:F0R a=-l TO 1 STEP 2 
40 PLOT 320+SIN(c)*100-2*a-d*f*200,396-C+7 
0+d*f*30,1:RESTORE:FOR b=l TO 33:READ w.x. 
y:IF w THEN PLOTR f*a*x,f*y ELSE DRAWR f*ä 
*x,f*y 

50 NEXT b.a.d.c 

60 DATA 1,0,0,0,24,0,0,18,-10,0,-42,0,1,19 
,-2,0,0,-15,0,4,0,0,0,15,1,-22,-4,0,9,0,0, 
9,-13,1,-18,0,0,24,0,0,19,-25,1,-43,0,0,62 
,0,0,10.-10,0.-72,0,1,56,0,0,0,-10,0,25.0, 
0,0,30,0,-25,0,0,0,-10.0,0,4,0,-7,0,0,0,32 
,0,26,0.0,0,-25,1,-26,6,0,-16,0,0,-8,8.0 2 

4,0 

70 FOR a=2 TO 14:INK a,0:CALL &BD19:SOUNO 
1,400+a*5,3,l+a/2:SOUND 2,600+a*10,3,l+a/2 
:CALL &BD19:INK a,13:NEXT:GOTO 70 


Llsling Carrace 


[6641] 

[3469] 

[7712] 


[382] 

[ 11971] 


[5917] 


10 1=12:MODE 1:INK 0,0:BORDER 0:INK 1,26:1 [3626] 
NK 2,2:INK 3,7:SYMBOL 255,129,66,36,60,90, 

66:DIM c(14),d(14) 

20 FOR x=1 TO 30 STEP 2:FOR y=l TO 1:LOCAT [10619] 
E x,y:PEN 2:PRINT"!":NEXT y,x:LOCATE 31,1: 

PEN 1:PRINT"PUNKTE":x=16:p=0:FOR n=l TO 14 
:c(n)=n*2:d(n)=l;LOCATE c(n ) ,d(n):NEXT n 
30 PEN 1:LOCATE x,l + l:PRINT CHR$(239):f = IN [3549] 
T(RND*14)+1;FOR n=l TO 10:NEXT n 

40 d(f)=d(f) + l:LOCATE cCf),d(f):PEN 3:PRIN [9333] 

T CHR$(255):LOCATE c(f),d(f)-1:PRINT" “:IF 
d(f ) = 1+1 THEN WHILE INKEY$<> " ";WEND:FOR n 
=1 TO 500:NEXT n:GOTO 130 

50 IF JOY(0)=4 AND x>2 THEN X=X-2:L0CATE x [7266] 
+2,1+1:PRINT" " ELSE IF J0Y(0)=8 AND x<28 
THEN x=x+2:LOCATE x-2,1+1:PRINT" " 

60 IF JOY(0)=16 AND g=0 THEN g=l:z=x:v=1 E [2586] 
LSE IF g= 1 THEN GOSUB 80 

70 GOTO 30 [340] 

80 h=p:LOCATE z,v:PRINT" ":v =v-1:s=z/2 [1833] 

90 IF d(s)=v OR d(s)=v+1 THEN LOCATE c(s), [6309] 
d(s):PRINT" ":LOCATE c(s),d(s)-1:PRINT" ": 

0*0:SOUND 1,200,15,15,,,15:p=p+d(s);d(s)=l 
:GOTO 110 

100 LOCATE z,v:PEN 1:PRINT CHR$(175):IF v= [4860] 

2 THEN g=0 :SOUNO 1,1000,5,15,15:LOCATE z,v 
:PRINT“ “ 


110 IF h<p THEN PEN 
ING“####";p 
120 RETURN 
130 LOCATE 1,24:PEN 


2:LOCATE 33,3.PRINT US [3503] 


1:INPUT“GAME OVER ! 


Nochmal ?",j$:IF j$="J" OR j$=“j" THEN C 
LS:GOTO 20 ELSE STOP 

Listlng Alien Alarm 


[555 ] 
[5985] 


10 DIM sy(20):BORDER O.INK O.OrINK 1,26:IN 
K 2,13:INK 3,9 

20 FOR n=l TO 20:sy(n)=1:NEXT n 
30 MODE 1 

40 x=10:mx=INT(RND*20):t1m=50+INT(RND*50) 
50 PEN 2:FOR n=l TO 20:LOCATE n,l:PRINT CH 
R$(231);:NEXT 
60 PEN 3 

70 LOCATE 1,11:PRINT STRING$(20,134);:PRIN 
T CHR$ ( 22 )CHR$ ( 1) : PEN 2 : LOCATE 1,U:PRINT 
STRING$(20,137):PRINT CHR$(22)CHR$(0) 

80 LOCATE x,10:PEN 1:PRINT CHR$(248) 

90 IF sy(x)=10 THEN 190 

100 d=INT(RND*20)+l:sy(d)=sy(d)+l:LOCATE d 
,sy(d)-l:PRINT" ":IF sy(d)=ll THEN sy(d)=l 
110 IF sy(d ) = 10 AND x = d THEN 190 
120 LOCATE d,sy(d):PEN 2:PRINT CHR$(231) 
130 PEN 1:LOCATE x,10:PRINT CHR$(248);:IF 
JOY(0)=4 AND X>1 THEN x=x-l:LOCATE x+1,10: 
PRINT" " ELSE IF J0Y(0)=B AND x<20 THEN x= 
x+1:LOCATE x-1,10:PRINT" " 

140 FOR n=l TO 10:NEXT n 

150 IF f1ag=0 THEN tim=tim-l:IF t1m=0 THEN 


[2360] 

[1791] 

[506] 

[2669] 

[3710] 

[ 547 ] 
[8931] 


[ 2212 ] 

[936] 

[5916] 

[660] 

[2474] 
[8485] 


[1131 ] 
[3007] 


GOSUB 230 

160 IF x=mx AND f1ag=l THEN pu=pu+l: 
LOCATE 1,20:PRINT“PUNKTE:";pu:SOUND 
2, 15:mx=INT(RND*20)+l: flag=0 
170 IF flag= 1 THEN GOSUB 240 
180 GOTO 80 

190 LOCATE x,10:PEN 1:PRINT"_"; 

200 FOR n=10 TO 1000 STEP 20:SOUND 
5:NEXT n 

210 WHILE INKEYSO"" :WEND: LOCATE 1,2 
T"GAME OVER Nochma1?",j$:IF j$="j 
$="J" THEN RUN ELSE STOP 
220 IF sy(mx)> 2 THEN mx = INT(RND*20) + 
220 

230 flag=l:LOCATE mx,10:PEN 1:PRINT 
49); :tim= 50 +1NT(RND*50) :RETURN 
240 IF sy(mx)=10 THEN GOTO 250 ELSE 
250 f1ag=0:mx=INT(RND*20)+l:t1m=50 
260 RETURN 


Lisling Steinschlag 


PEN 1: 
1,360, 


1 , n , 2,1 

5:PRIN 
" OR j 

1:GOTO 

CHR$(2 

RETURN 


[6383] 


[1126] 

[306] 

[1841] 

[2586] 

[6101] 


[2476] 

[4288] 

[2024] 

[2118] 

[555] 


1 CLEAR:DEFSTR a:DEF FNx(b,c,t)=(b-c)*COS( [15409] 
t)+c*COS(t*(c-b)/c):DEF FNy(b,c,t)=(b-c)*S 
IN(t)+c*SIN(t*(c-b)/c):MODE 2:PRINT"Radien 
":e=VP0S(#0):PRINT"rl:"TAB(20)"Schritte :" 

:f=VPOS(#0):PRINT"r2:":LOCATE 4.e:INPUT"", 
b:LOCAT E 4,f:INPUT"“,c:LOCATE 30,e:INPUT " “ 

■ s 

2 s = 1/s:IF b< = c THEN PRINT:PRINT"R2=>Rl":I [ 15923] 
NPUT a:GOTO 1 ELSE IF (b/c)=2 THEN PRINT:P 
RINT"R1/R2=2":INPUT a:GOTO 1 ELSE ORIGIN 3 

20,200:PLOT -320,0:DRAWR 640,0:DRAWR -4,8: 

PLOT 320,0:DRAWR -4,-8:PLOT 0,200:DRAWR 0, 

-400:PLOT 0,200 

3 DRAWR -4,-8:PLOT 0,200:DRAWR 4,-8:FOR x= [14982] 
-319 TO 310 STEP 29:PLOT x,4:DRAWR 0,-8:NE 

XT:FOR y=-190 TO 200 STEP 27:PLOT -4,y•DRA 
WR 8,0:NEXT:TAG:MOVE -40,190:PRINT 
OVE 200,-10:PRINT b;:TAGOFF:PLOT FNx(b,c,0 
) ,FNy(b,c,0) 

4 PLOT FNx(b,c,0)*175/b,FNy(b,c,0)*160/b:F [7150] 
OR t=0 TO 2*PI STEP s:DRAW FNx(b,c,t)* 175/ 

b,FNy(b,c,t)*160/b:NEXT:PRINT:INPUT "",a-R 
UN 


Listing Hypozykloid 


100 1 FASTM1 VI.1 - (c)1990 by M1Z1 
110 ' 

120 hX=UNT(HIMEM) 

130 MEMORY 40959 

140 RESTORE 200 

150 FOR 1=40960 TO 41139 

160 READ byte$ 

170 POKE 1,VAL("&’+byte$) 

180 NEXT 

190 CALL 409 59:MEMORY hX:CLEAR 
200 DATA C3,30,AO,04,01,46,41,53 
210 DATA 54,40,31,20,56,31,2E,31 
220 DATA 20,20,20,A4,31,39,39,30 
230 DATA 20,62,79,20,4D,69,5A,69 
240 DATA OA,OA,OD,00,7E,B7,C8,CD 
250 DATA 5A.BB.23,18,F7,C3,A5,BO 
260 DATA 21,03,A0,CD,24,A0,F3,21 
270 DATA 5A,AO,11,A5,BO,01,5A,00 
280 DATA ED,BO,21,03,BD,11,79,BE 
290 DATA 01,03,00,ED,BO,21,2D,AO 
300 DATA 11,D3,BD,01,03,00,ED,80 
310 DATA FB,C9,32,FF,B0,3A.C3.B7 
320 DATA FE,01,3A,FF,BO,C2,79.,BE 
330 DATA 06,00,40,29,50,5C,60,29 
340 DATA 09,29,29,29,29,19,ED,4B 
350 DATA C4,B7,09,EB,26,07,6F,29 
360 DATA 29,29,3A,C6,B7,82,E6,C7 
370 DATA 06,08,57,E5,C5,7E.21.EC 
380 DATA BO,77,ED,6F,2A,2F,B7,47 
390 DATA 2F,A4,4F,78,A5,Bl,12,13 
400 DATA 3E,00,47,2F,A4,4F,78,A5 
410 DATA Bl,12.C1,El,23,18,7A.C6 
420 DATA 08,10,D7,C9 


Lisling FASTMt 


[2041] 

[117] 

[1129] 

[440] 

[563] 

[969] 

[603] 

[ 785 ] 
[350] 

[1854] 

[1359] 

[1807] 

[1531] 

[1314] 

[2039] 

[1422] 

[1579] 

[•1538] 

[925] 

[1153] 

[698] 

[951] 

[1080] 

[1408] 

[905] 

[1219] 

[1025] 
[1771] 

[ 792 ] 

[1539] 

[956] 

[1519] 

[682] 
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I—Tips & Tricks 


Code-Salat 

Assembler-Quellcode- 
Kon vertierung 

Jeder kocht sein eigenes Süppchen, weil jeder sich vor 
anderen hervortun will oder den gewissen individuellen 
Touch, die persönliche Note, in sein Werk einbringen 
will. Dies ist durchaus verständlich, aber ebenso 
störend, wenn es um Dinge geht, die andere Personen 
benutzen wollen. 


Beispielsweise wirkt sich die Inkompatibilität verschiedener 
Assembler bezüglich der Verarbeitung von Quelltexten nicht 
gerade vorteilhaft auf das Gemüt von Programmierern aus. 
Nehmen wir den Assembler PROFIMAT von Data Becker. 
Dieser benutzt eigene Tokens für jeden Assembler-Befehl, 
was im Gegensatz zu der Verfahrensweise der CP/M-Assem- 
bler steht, die stets ASCII-Dateien umsetzen. 


für 664-6128 



10 MODE 2 

20 PRINT "Bitte etwas Geduld !!" 

30 IF HIMEM< &4000 THEN 120 
40 MEMORY 8.2FFF 
50 OPENOUT "dummy” 

60 MEMORY HIMEM-1 
70 CLOSEOUT 
80 ad r = &A400 
90 FOR 1=1 TO &230 

100 READ a$: POKE adr,VAL("&"+a$): adr=adr 
+ 1 

110 NEXT 
120 MODE 1 

130 PRINT "MIT DIESEM PROGRAMM KOENNEN NOR 
MALE ASCII-DATEIEN IN DAS PROFIMAT-FOR 

MAT GEBRACHT WERDEN." 

140 PRINT "UND UMGEKEHRT NATUERLICH AUCH.“ 
150 PRINT 

160 PRINT "BITTE WAEHLEN SIE 1!!" 

170 PRINT:PRINT 

180 PRINT "1 PROFIMAT - > ASCII" 

190 PRINT "2 ASCII - > PROFIMAT" 

200 PRINT "3 ENOE DES PROGRAMMS" 

210 PRINT:PRINT 

220 A$=INKEY$ : IF A$="" THEN GOTO 220 
230 ON VAL (A$) GOSUB 250.530,1030 
240 GOTO 120 
250 MODE 2 

260 PRINT "KONVERTIERUNG PRO 
FIMAT —> ASCII":PRINT 

270 INPUT "Welche Prof 1mat-Datei (Extensl 
on='QLL' nicht mit angeben) ";name$ 

280 IF LEN(name$)>8 THEN 270 

290 LOAD name$+".QLL",&3000 

300 PRINT:PRINT"Bitte etwas Geduld !!!" 

310 adr = 8,3000 

320 OPENOUT name$+".QLB" 

330 o$="" 

340 wert = PEEK(adr) 

350 IF we rt = 0 THEN 410 

360 IF wert=&D THEN PRINT #9,o$: adr=adr+l 
: GOTO 330 

370 IF wert = &FF THEN wert = ASC( " ; " ) 

380 IF wert > = &80 THEN GOSUB 430 ELSE GOSUB 
510 

390 adr=adr+l 
400 GOTO 340 
410 CLOSEOUT 


[513] 
[2554] 
[ 498 ] 

[ 766 ] 
[987] 
[259 ] 

[ 902 ] 
[636] 

[ 329 ] 

[ 1815] 

[350] 

[506] 

[6986] 


[2520] 
[361] 
[1711] 
[ 743 ] 

[1906] 
[2327] 
[1514] 
[ 743] 

[ 1908] 
[ 1889] 
[429] 
[513] 
[4247] 

[5604] 

[1128] 
[1268] 
[1772] 
[ 764] 
[1147] 
[ 354 ] 

[ 648] 

[ 1258] 
[2963] 

[ 1095] 
[1765] 

[ 392] 
[464] 
[902 ] 


Listing KONVERT 


Das vorliegende Programm konvertiert nun die für die ver¬ 
schiedenen Assembler nötigen Quelltexte in beiden Rich¬ 
tungen. 

Verfahrensweise 

Nach dem Start des Programms befindet man sich in einem 
kleinen Menü. Von hier aus kann man die Umsetzungsrich¬ 
tung auswählen. Nach Eingabe des Dateinamens beginnt die 
Konvertierung. Die Extensions der Dateien sind dabei vorge¬ 
geben, können aber bei Bedarf im BASIC-Quellcode geän¬ 
dert werden. 

Bei umzusetzenden PROFIMAT-Dateien erwartet das Pro¬ 
gramm den Dateizusatz “.QLL“; die konvertierte ASCII- 
Datei wird mit “.QLB“ versehen. 

In umgekehrter Richtung muß eine ASCIT-Datei mit “.TXT“ 
gekennzeichnet sein; die daraus entstehende PROFIMAT- 
Datei ist an “.QLR“ zu erkennen. 

Die Eingabe von Konvert ist mit wenig Problemen behaftet. 
Tippen Sie einfach das Listing ab und sichern es. Danach ist 
es, sofern keine Tippfehler hineingerutscht sind, funktions¬ 
tüchtig. 

(Hermann Bach/jf) 


420 

RETURN 

[ 555 ] 

430 

' 

[117] 

440 

a$= " 12345 " + " 6 '' 

[801] 

450 

CALL 8.A403,@a$,wert-8.80 

[2094] 

460 

GOSUB 490 

[883] 

470 

o$=o$+CHR$(9)+ a$+" " 

[1016] 

480 

RETURN 

[ 555 ] 

490 

'IF a$=" EQU'' THEN a$=" = " 

[279 ] 

500 

RETURN 

[ 555 ] 

510 

o$=0$+CHR$(wert) 

[ 492] 

520 

RETURN 

[ 555 ] 

530 

MODE 2 

[513] 

540 

PRINT "KONVERTIERUNG ASC 

[2892] 

II 

-> PROFIMAT' 


550 

PRINT 

[361] 

560 

konvert = 8tA400 

[ 1028] 

570 

ad r = &3000 

[ 764] 

580 

POKE adr.SFF 

[81] 

590 

ad r = ad r + X 

[392] 

600 

INPUT "Welche ASCII-Datei (Extension=‘ 

[6385] 

TXT 

nicht mit angeben) ",name$ 


610 

name$=UPPER$(name$) 

[ 790] 

620 

OPENIN name$+".TXT" 

[1815] 

630 

PRINT:PRINT "Bitte etwas Geduld i!" 

[1602] 

640 

WHILE NOT EOF 

[1840] 

650 

LINE INPUT #9,a$ 

[ 1 529 ] 

660 

a$=UPPER$(a$) 

[ 533] 

670 

WHILE INSTR(a$,CHR$(9))>0 MID$(a$,IN 

[3947] 

STR(a$,CHR$(9) ) , 1 )=" ": WEND 


680 

WHILE LEFT$(a$.1 )=" " : a$=R IGHT ${a$ ,L 

[4185] 

EN(a$)-1):WENO 


690 

IF a$="" THEN 960 

[921 ] 

700 

pp= INSTR ( a$ ,";.") 

[ 1044 ] 

710 

IF pp > 0 THEN MID$(a$.INSTR(a$,";"). 1) = 

[2152] 

CHR$UFF ) 


720 

IF pp=0 THEN GOTO 810 

[ 365 ] 

730 

FOR 1=pp TO LEN(a$) 

[1164] 

740 

ch=ASC(MID$(a$,1,1)) 

[1225] 

750 

POKE adr.ch 

[HO] 

760 

ad r = ad r+ 1 

[ 392 ] 

770 

NEXT 

[350] 

780 

POKE adr,8.0 : adr = adr+l 

[1040] 

790 

IF pp=l THEN 960 

[462 ] 

800 

a$=LEFT$(a$,pp-1) 

[ 1320] 

810 

a$= " " + a$ +" " 

[689 ] 

820 

'PRINT a$ 

[264] 

830 

CALL konvert,@a$ 

[417] 

840 

WHILE (INSTR(a$, ")<>0) 

[1905] 

850 

1=INSTR( a$ , ") 

[826] 

860 

a$=LEFT$(a$,1 -1 ) +MID$(a$, 1+1) 

[2210] 

870 

WEND 

[ 390 ] 

880 

k=LEN(a$) 

[97] 

Listing KONVERT 
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890 

F0R 

i=l T0 k 

[ 443] 

900 

ch = A5C(MID$U$ , 1 , 1) ) 

[ 1225 ] 

910 

P0KE 

ad r,ch 

[110] 

920 

ad r= 

ad r+1 

[392 ] 

930 

NEXT 


[350] 

940 

P0KE 

ad r,&D 

[ 189] 

950 

ad r = 

ad r+1 

[ 392] 

960 

WEND 


[390] 

970 

CLOSEIN 

[ 752 ] 

980 

POKE 

ad r, 0 

[ 302 ] 

990 

ad r = 

adr + 1 

[ 392] 


1000 

SAVE i 

1010 

PRINT 

1020 

RETURI 

1030 

END 

1040 

DATA 

1050 

DATA 

1060 

DATA 

1070 

0ATA 

1080 

DATA 

1090 

DATA 

1100 

DATA 

1110 

DATA 

1120 

DATA 

1130 

DATA 

1140 

DATA 

1150 

DATA 

1160 

DATA 

1170 

DATA 

1180 

DATA 

1 190 

DATA 

1200 

DATA 

1210 

DATA 

1220 

DATA 

1230 

DATA 

1240 

DATA 

1250 

DATA 

1260 

DATA 

1270 

DATA 

1280 

DATA 

1290 

DATA 

1300 

DATA 

1310 

DATA 

1320 

DATA 

1330 

DATA 

1340 

DATA 

1350 

DATA 

1360 

DATA 

1370 

DATA 

1380 

DATA 

1390 

DATA 

1400 

DATA 

1410 

DATA 

1420 

DATA 

1430 

DATA 

1440 

DATA 

1450 

DATA 

1460 

DATA 

1470 

DATA 

1480 

DATA 

1490 

DATA 

1500 

DATA 

1510 

DATA 

1520 

DATA 

1530 

DATA 

1540 

DATA 

1550 

DATA 

1560 

DATA 

1570 

DATA 

1580 

DATA 

1590 

DATA 

1600 

DATA 

1610 

DATA 

1620 

DATA 

1630 

DATA 

1640 

DATA 

1650 

DATA 

1660 

DATA 

1670 

DATA 

1680 

DATA 

1690 

DATA 

1700 

DATA 

1710 

DATA 

1720 

DATA 

1730 

DATA 


.qlr" , 
" . QLR 


.A4.C3 
,00,00 
.00,00 
,20,20 
,20,20 
.20,20 
,03,DO 
, 5E , 23 
,3D,A5 
,FA,10 
.A4.EB 
,04,CB 
,08,A4 
,32,OA 
,32,00 
.53,OE 
,00,3A 
,A4,DO 
,00,21 
,00,77 
.28,F4 
.BF,77 
,32,16 
.A4,7C 
,00,FD 
, 7E,FE 
,05,E5 
.95,32 
,B7.ED 
,BO,2A 
,C9,3E 
,ED.62 
.ED,5B 
,ED,52 
.CC,18 
,E5,3A 
,28,00 
,13,20 
.22,10 
.CI,Fl 
,C3,44 
,44,C3 
,41,4E 
,43,00 
,DO,42. 
,45,D4 
,52,CC 
,52,CI. 
,5 5,D4. 
,DA,45. 
,41,4C, 
,4E,4F 
,52,43, 
,CI,44 
, 43,C6 
,04,45 
,4E,45 
,45,54. 
,C4,4C. 
,4E,C9 
,04,43, 
,55,54, 
,50,49, 
,54,49, 
,50,44, 
,54,44, 
,45,46, 
,45,46, 
,C7,45, 
,53,C5, 


b,&3000.ad r-&3000 
wurde e rzeugt. “ 


2C,A4, 
00,00, 
00,00, 
20,20, 
20,20, 
FE,02 , 
6 E,02, 
56,ED, 
04,7E , 
F8,06 , 
1A, 77 , 
7F.CB, 
70,C9, 
A4,EB, 
A4,23, 
A4,ED, 
OD,A4, 
21,3E, 
19,A4, 
04,23, 

FE, FF , 
3E,20, 
A4,CD, 
85,20, 
E5,Dl, 
20,23, 
B7,ED, 
OD,A4 , 
52,E5. 

OB, A4, 

FF. 32, 
22,10, 
12,A4, 
23,44, 
A5,EO, 
16,A4, 
11,19, 

OC, EA, 
A4,CI , 
C9,FF , 
45,C3, 

53.55, 
C4,58, 

50.55, 

49, D4, 
52,4C, 
52,02, 

53.52, 

52.53, 
08,49, 
CC,52, 
00,52, 
CI , 52. 
41,C1, 
43.43, 
58,D8, 
C7.52, 
C9,52, 
44,C9, 
4F,55, 

50, C4, 
C4,4C, 
02,49, 
D2,4C, 
D2,49 , 
02,44, 
D7,44, 
D3,45 , 
4E,D4, 
45,4E, 


00,00 
00,00 
00,00 
20,20 
20,20 
CO,43 
22,08 
53,06 
23,CB 
00 , ED 
CB,BE 
BF , 28 
FE , 01 
22 , OB 
5E , 23 

53, 12 
6F , 19 
A5 , FD 
06,01 

DD, 23 

28.48 
23, 77 
F9 , A4 
04 . FD 
7B, 73 
20 , FA 
52.3A 
2A , 14 
CI , EB 
3A.0D 
OA, A4 
A4,3 A 
2 A , 14 
40. EB 
18, F8 
4.F ,06 
A4,1A 
27. A5 
Fl . Fl 
4C.C4 

41.44 
C2 , 53 
4F , 02 
5 3 , C8 

52.45 
C3,52 
53,4C 
CC , 49 
04,44 

CO, 4A 
45 , D4 
4C, 43 
4C.C1 
43,50 
C6,48 
44,C9 
45,54 
52 , C4 
43,50 

54, C9 
49,4E 

44.49 
4E , 49 
44,44 
4E , 44 

45.46 
45,46 
51,05 
49 ,C6 
C4, FF 


[2281] 
[2276] 
[555 ] 
[110] 

[ 1493] 
[ 1005 ] 
[1005] 
[1189 ] 
[1189] 
[1388] 
[1501] 
[1381] 
[1792] 
[1021 ] 
[2111] 
[1081] 
[1379] 
[901 ] 
[332] 
[808] 
[556 ] 

[1938] 
[1641] 
[993 ] 

[1842] 
[1913] 
[1023] 
[1623] 
[1389 ] 
[1581 ] 
[1296] 
[1485] 
[ 1852 ] 
[3044] 
[1057] 
[ 1112 ] 
[484] 
[1364] 
[1570] 
[1492 ] 
[ 1579 ] 
[1262] 
[1724] 
I1527] 

[690] 

[1467] 
[ 724 ] 
[1594] 
[1631 ] 

[691] 

[1042 ] 
[2076] 
[1581] 
[1352] 
[1948] 
[2223 ] 
[1526] 
[540] 

[1003] 
[1117] 
[1617] 
[ 761] 

[ 149 7 ] 
[ 594] 

[ 1994] 
[1512] 
[2227] 
[1139] 
[1639] 
[ 979 ] 
[1259] 
[1152 ] 
[ 1112 ] 
[ 1659 ] 


Lisling KONVERT 


R. Schuster Computer 

Computer-Hard- und Software 


Spiele für CPC 


A P.B 

Actjori Fighter 
Altored BoaBt 
Bacrrmn The Movie 
Boverlv Hills Cop 
BkickTigor 
Bloodwych 
Buffalo Bills W W 
RoeieoGamua 
Cabal 

California Gomea 
Chuck Yeugern Adv Kl T 
Coin Up Hits 
Continental Circus 
Crazy Cars 2 
Das Reich 
Doors of Dooru 
Dragon Ninja 
Dragon Spirit 
Dschungelbuch 
Dyrumut-o Dux 
Echelon 

Ernlyn Hugho« Soccer 
Epyx Act Ion 
Expansion Kit 
f. Football Man. 2 
Fighting Soccer 
Football Manager 2 
Football Managet 2 

mit Expansion Kit 
Gumn.Sot ft Match 2 
Gazza's Super Soccer 
Gemini Wing 
Ghofttbufiturs 2 
Ghouls And GhoBts 
GianUi Compilation 
Gold, Silver, Bronze 
Hard Drivin 
Heroos of thti Lance 
Hot Rod 

Jnck Nicklaus Golf 
Knight Force 
Londerboard Par 3 
Mic: leprose Söcccjf 
Moonwalkor 
Mr. Hoh 

New Zealand Story 
Ninja Warner 
Oparation Thundorbold 


CftMK. 

28.90 

29.90 

31.90 

31.90 

29.90 

29.90 

29.90 

29.90 

31.90 

28.90 

41.90 

26.90 


22.90 

31.90 

28.90 


39.90 

29.90 

28.90 

31.90 

26.90 

39.90 

39.90 

31.90 

26.90 

29.90 

29.90 

43.90 

26.90 

29.90 

31.90 

29.90 

31.90 


Disk. 

39.90 

45.90 

44.90 

44.90 

45.90 
4b.90 
45.90 


42.90 

49.90 

47.90 

41.90 

45.90 

42.90 

44.90 

36.90 

39.90 

44.90 

43.90 

43.90 

49.90 


43.90 

54.90 

45.90 

43.90 

45.90 

54.90 

57.90 

66.90 

47.90 

41.90 

45.90 

49.90 

45.90 

59.90 

59.90 

41.90 

42.90 

44.90 

45.90 

47.90 


P4 7'Thundorbold 

Pacmanwi 

Piraten 6128 

Povvordrift 

R-Typo 

Raffles 

Rainbow Islands 
Red Heat 
Rick DaugerouH 
Rock'n Roll 
Run The Qauntiet 
Rurtniny Mari 
Scrarnblti Spirits 
Silkworm 
Skwook 

Soccer Spoctacular 
Soccer Sqimd 
Special Action 
Spitting Image 

Sport mg Tliunglos 
Summer Edition 
Super Wender boy 
Supcrtiux 
Suproine Challonge 
Ten Great. Games 3 
Test Drive 2 
The Redl Ghustbustors 

Thunderbuds 
Tun and Struppi 
Times Of Loro 
Ttmescanner 
Turbo Out Run 
War In Mldillt: Eai th 
WgcLo Mans 
Wiener:; 

Winter Games 


COSK. 

29.90 

31.90 

29.90 

31.90 

28.90 

29.90 

31.90 

28.90 

31.90 

31.90 

29.90 
29.90 

29.90 

39.90 

29.90 

45.90 

28.90 
28.90 

28.90 

29.90 

39.90 

39.90 

29.90 

29.90 

39.90 

28.90 

29.90 

29.90 

26.90 

29.90 

31.90 

41.90 


CPC-ZUBEHOR 


Kabel CPC/an Fernseher rn Scart 

BildschirmIlH.or GT 64/65 . 

Bildschirmfiltoi CTM 640/644 

Dmckerkabal 464/664 . 

Drückerkabol 6128. 

MonitojverlÜngerung CPC 464 
MomtoiVerlängerung CPC 664/6128 . 
Kabel Computer/Recorder 
3”-Diskotton. 10 Stck. . 


Disk. 

45.90 

57.90 

41.90 

45.90 

39.90 

47.90 

43.90 

47.90 

44.90 

45.90 
45.90 
45.90 

45.90 

59.90 

45.90 

59.90 

39.90 

43.90 

43.90 

41.90 

39.90 

49.90 

43.90 

51.90 

44.90 

45.90 

39.90 

45.90 

44.90 

41.90 

44.90 

59.90 

41.90 


19.80 

34.90 

39.80 

29.80 

29.80 

27.90 

34.90 

19.80 
69.00 


Hardware auf Anfrage 

Imümei und Preisändemngen Vorbehalten. Bestellungen schriftlich oder telefonisch 

R. Schuster Computer 

Obere Münsterstr. 33-35 - Tel. (02305) 3770 - 4620 Castrop-Rauxel 

Bei allen Bestellungen unbedingt Computenyp angebon 

Geschäftszeiten Montag Freitag 9 00-13.00 und 14 00-18.00 Uhr. Samstag 9.00-13.00 Uhi 
Veisand nur per NN zuzügl Versandkosten oder Vorkasse auf Postgiro-Klo.-Nr. 69422-460 Poslguuumt 
Dortmund zuzüglich 6.00 DM. Ausland nur per Vorkasse zuzügl 12.00 DM 

Neueste kplt Saftwareliste bei )«dei Bestellung kostenlos oder gegen frankierten Rückuinschlag 


Wahl-Ergebnisse 

Die von vielen bereits mit 
Spannung erwarteten Ergeb¬ 
nisse der Programmwahlen aus 
den Ausgaben 3’90 und 5’90 
der PC Amstrad International 
werden wir in der nächsten 
Ausgabe veröffentlichen. 

Sie wollen bereits jetzt wissen, 
wer die Wahlen gewonnen hat? 
Wir verraten nichts, nur soviel: 
Das Siegerprogramm stammt 
aus dem Jahre 1986... 
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r~Tips & Tricks 


Datum 

Datumsarithmetik in 
dBASE II 


Benutzer des Programmpaketes dBASE II haben im 
Gegensatz zu dBASE III (PLUS) nur die Möglichkeit, 
Manipulationen mit dem aktuellen Datum (DATE) 
durchzuführen. In dBASE III (PLUS) hingegen ist eine 
Datunisarithmetik integriert, die es erlaubt, mit 
Datumswerten zu arbeiten, also Addieren von Tagen zu 
einem bestimmten Datum oder auch Subtrahieren von 
zwei Datumswerten, die als Ergebnis die Zeitspanne in 
1 agen zwischen diesen beiden Datumswerten vorweisen. 


Durch das vorliegende Programm gelangen auch dBASE- 
U-Benutzer in den Genuß einer Datumsarithmetik. Der Pro¬ 
grammaulbau wurde mit Absicht sehr allgemein gehalten, 
um dem interessierten Benutzer die Übersicht über die Funk¬ 
tion bzw. den Programmablaut' zu erleichtern und drei Va¬ 
rianten der Datumsvariablen bzw. Speicherung des Datums 
zu demonstrieren. Der erfahrene Programmierer kann diese 
hier gezeigten Unterprogramme oder auch Teile davon in 
seine eigenen Anwendungen einbinden und so einen effizien¬ 
ten Programmablauf gewährleisten. 

Funktion: Nach dem Start des Hauptprogramms wählt der 
Benutzer eine Variante der Datumsanzeige. Anschließend 
werden noch das weiter zurückliegende Datum (OLDDATE) 
und das neuere Datum (NEWDATE) eingegeben. Je nach 
Variante wird nun ein Unterprogramm zur Umwandlung 
bzw. Verschlüsselung des Dalums in einen bestimmten Wert 
(SUMME) aufgerufen. Diese Weite werden je nach Datum 
in den Variablen ALT (=Wert aus älterem Datum) und NEU 
(=Wert aus neuerem Datum) gesichert. Bei dem Unterpro¬ 
gramm “Ausgabe“ wird nun durch die Berechnung NEU 
ALT die Zeitspanne ( = DAYS) in Tagen zwischen den bei¬ 
den Datumswerten ermittelt und ausgegeben. Ein Beispiel: 
Nach obiger Berechnung werden als Zeitspanne zwischen 
dem 1.1.89 und dem 10.1.89 neun Tage berechnet. Wäre 
nun für die jeweilige Anwendung ein Zeitraum von zehn Ta¬ 
gen richtig, so ist das Programm nur geringfügig abzuändern 
: STORE DAYS + I TO DAYS 

Dieses Utility eignet sich zur Zinsenberechnung (zum Bei¬ 
spiel bei Bankzinsen und zur Berechnung von Verzugszin¬ 
sen, auch mit unterschiedlichem Zahlungseingang und even¬ 
tuell wechselnden Zinssätzen) und zur Verwaltung und Aus¬ 
wertung von Terminen. Dem interessierten Anwender ste¬ 
hen natürlich noch eine Vielzahl von Anwendungen offen. 
Gestartet wird das Programm mit DO START. 

(Roland Schäffer/cd) 


4 Programm START 

* 11/89 bySchaelTer Roland 

* A-5020 Salzburg 

set talk off 
set bell off 
störe " " lo var 
do while .not. var = “4“ 
crusc 

@ 3,30say ‘D A T U M“ 
störe " “ to var 

10.20 say “ I. > Variante I - TTMMJJ'' 
i?i 12,20 say “2. > Variante 2 - TT MM JJ“ 
@ 14,20 say “3. > Variante 3 - TT M.V1 1JJJ“ 
@ 16.20 say " I > END B“ 

0 18.20 say "Ihre Wahl : “get var picturc ”9" 
read 


do cnse 
case var= " I “ 

** Prozeduren aufgrund VARIANTE I ** 

** 6 Leerstellen reservieren *» 

** OLDDATE = aclteres Datum *♦ 

NEWDATE = juengeres Dalum ** 
störe " to olddatc 
störe “ " to newdatc 

** Beliebige Datumsvverte etngeben i ** 
do cingabc 

** OLDDATE in der Variable DA T sichern : *• 
störe olddate lo dat 

** Vcrschluesselung des Dutums durch das Unter- •* 
** Programm WANDEL 1 : ** 
do wandel I 

** Vcrschluesscltcs Datums (=SUMME) in der ** 

“* Variable ALT ablegcn : ** 
sture summe lo ah 

** NEWDATE in der Variable DAT sichern : ** 
störe newdate to dat 

** Verschlucsselung des Datums durch das Unter- ** 
”* Programm WANDELI : *" 
do wandel I 

“ Vcrschluesscltcs Datum (= SUMME) in der 
** Variable NEU ablegen : ** 
störe summe to neu 
** Ergebnis ausgeben : "* 
do Ausgabe 


atsc var=“2“ 

* Prozeduren aufgrund der VARIAN TE 2 : ** 

* 8 Stellen reservieren : ** 

störe " “ to olddate 
störe " “ to newdate 
do eingabe 
störe olddate to dat 
do wände 12 
storo summe to alt 
störe newdate to dat 
do wandc!2 
störe summe to neu 
do ausgabc 


case. var =:“3“ 

** Prozeduren aufgrund der VARIANTE 3 : -* 

**10 Stellen reservieren : ** 
störe "• “ lo olddate 
störe " “ to newdate 
do eingabe 
störe olddatc to dat 
do wandel,? 
störe summe to alt 
Store newdatc to dat 
do wandel? 
störe Summe lo neu 
do ausgabc 
endcasc 
enddo 
rcturn 

** UP EINGABE ♦* 

*“ Eingeben der Datuniswerte : ** 

erasc 

® 5,2 say “Altes Datum eingeben "get olddate 
® 8,2 say “Neues Datum eingeben “get newdatc 
read 
retuni 

** UP DATUM «* 

** Berechnung der Variable SUMME : ** 
if m < 3 
störe)-1 to j 
störe m+12 tom 
endif 
störe 

tnt(365,25*j)-im(j/100)-Hnt<j/400)l-3l“(m-r)-im(0,4*m-r2.3) + l to summe 
return 


“* UPWANDELI : *<• 

** Vcrschluesselung der Daten ** 

■** aufgrund der VARIANTE I , *» 
störe val (St dat. 1,2)) to t 
störe val ($(dat.3.2)) to m 
störe val ($(<Jar.5,2)) + 19(81 to j 
do datum 
return 

** UP WANDEL2 : ** 

** Vcrschluesselung der Daten ** 

** uufgnmd der VARIANTE 2 : «* 
störe val <$(dat.I,2)) tot 
störe val (S(dat,4,2)) to in 
störe val (SCdat.7.2)) + 191X1 lo) 
du datum 
return 

** UP WANDE1.3 ; ** 

** Verschlucsselung der Daten ** 

** aufgrund der VARIANTE 3 : *» 
störe val ($(dat. 1.2» to t 
störe val f$(dat.4,2)> to m 
störe val ($(dat,7.4)) toj 
do datum 
rcturn 

** UP AUSGABE ** 

** Berechnung der Zeitspanne aufgrund der »* 

** verschlucssclten Werte und Ausgabe : “ 
crase 

störe neu - alt to davs 

7 

? “Die Zeitspanne vom “.olddate,“ bis “.newdate, 
betraegt “,days.“ Tage." 


watt 

return 
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I—Tips & Tricks 


Change 

Umwandeln von Bildern 
nach Mode 2 

Mit dem Programm CHANGE steht Ihnen ein Werk¬ 
zeug zur Verfügung, mit dem Sie Farbbilder vom Mode 
0 oder vom Mode 1 graustufengerecht in den Mode 2 
uniwandeln können. 

Ursprünglich wurde dieses Tool geschaffen, um Mikrohard¬ 
copies von Farbbildern zu erstellen. Solche Mikrohardcopies 
ließen sich allerdings nur von Bildern im Mode 2 erstellen. 
Außerdem hat man nun die Möglichkeit, Farbbilder in DTP- 
Programmen wie zum Beispiel Stop Press zu benutzen. Farb¬ 
monitorbenutzer haben die Gelegenheit zu sehen, wie das ein 
oder andere Bild auf dem Grünmonitor aussehen würde. Es 
gibt zum Beispiel gescannte Bilder speziell für Grünmonitor¬ 
besitzer, die auf dem grünen Schirm fast Fernsehbildqualität 
erreichen und auf dem Farbmonitor nur als buntes Chaos er¬ 
scheinen. Auch solche Bilder lassen sich mit nur geringem 
Qualitätsverlust in echte Schwarzweißbilder umrechnen. 

Das Programm liegt als RSX-Erweitcrung vor. Der Maschi¬ 
nencode wird durch den Datalader (Listing 1) erzeugt. Die 


Erweiterung wird über Listing 2 geladen und initialisiert. 
Die Kommandos werden, wie gewohnt, mit vorangestelltem 
RSX-Strich eingegeben: 

1. ICHANGE, < Helligkeitswert > 

Funktion: Befindet sich der CPC im Grafikmodus 0 oder 1. 
so wird das Bild nach einem speziellen Algorithmus graustu¬ 
fengerecht in den Mode 2 umgerechnet. Wird der < Hellig¬ 
keitswert > weggelassen, so ergibt sich auf dem Grünmoni¬ 
tor eine ziemlich genaue Wiedergabe des vorherigen 
(Farb)bilds. Wird ein Parameter angegeben, der größer als 0 
ist, so wird die Helligkeit des umgerechneten Bilds etwas an¬ 
gehoben. Dies ist dann notwendig, wenn von dem Bild an¬ 
schließend eine Mikrohardcopy erstellt werden soll, da diese 
durch die hohe Pixeldichte meistens etwas zu schwarz wird. 
Gängige Werte für solch einen Fall liegen zwischen 6 und 15. 

2. IBACK 

Funktion: Nach dem Umrechnungsvorgang kann man mit 
diesem Befehl das Orginalbild wieder auf den Monitor brin¬ 
gen. Für diese Bildschirmkopie ist der Speicher von &4000 
bis &7FFF reserviert. Anmerkung: Wird der Befehl BACK 
angewandt, ohne daß vorher ein Bild umgerechnet wurde, so 
können die Farben unkoordinierbare Werte annehmen. Im 
Regelfall werden alle Farben auf 0 (schwarz) gesetzt, so daß 
der ganze Bildschirm dunkel wird. In diesem Fall müssen Sie 

’blind’INK 1,26 eintippen. ... _ . . , 

rr (Andreas Stroiczek/cd) 


für 464-664-6128 


10 REM Lader fuer CHANGEMC.BIN 
20 MEMORY &3FFF 
30 LOAD " chang emc . bin" ,8.8000 
40 CALL &8000 



[2076] 
[ 756] 
[1677] 
[453] 


50 MODE 2:PRINT"Befehle: !CHANC-,<He 1]igke [3432 ] 
1tswe rt >" 

60 PRINT TAB(10)"!BACK" [1285] 




20 ’= Dieser Datalader erzeugt die Datei 
CHANGEMC.BIN' = 

30 ■===================================- 


40 ' 

50 MODE 2 
60 DEFINT a-z 
70 RESTORE 200 
80 zelle = 200 
90 MEMORY &7FFF 

100 FOR 1=48000 TO 48280 STEP 10 
110 FOR j=i TO i+9 

120 READ a$:a=VAL("4"+a$):POKE j 

130 pr=(pr+(j-i+l)»a)MO D 4096 

140 NEXT 
150 READ a$ 

160 IF VAL ( "4" + a$)< >pr THEN PRINT" 
ummenfehler ln "ze11e:STOP 
170 zei1e=zei1e+1 
180 NEXT 

190 SAVE"CHANGEMC.BIN".b,48000,43E1 : 

200 DATA 21,10,80,01,09,80,03,01,60, 

201 DATA 80,C3,24.80,C3. 3F ,82,43,48, 

202 DATA 4E , 47,C5,42,41,43,CB,00,00, 

203 DATA 00,00,00,00,00, 00, FE,02, DO, 

204 DATA 28,03,DD,7E.00,32,EO,83,21, 

205 DATA B7,11,3D,86,3A,57,BC,1F,30, 

206 DATA 21,EB,B1,11,F3,B4,ED,53,8A, 

207 DATA 11,8C,82,01,10,00,ED,BO,06, 

208 DATA 21,9F,82,AF,77,23, 77,23, 10, 

209 DATA ED,73,9C,82, CD, 11, BC. 38,03, 

210 DATA 74,C9,CD,01,82,OE,C8,21,00, 

211 DATA 06,50,DD,21,9F,82,C5,01, 00, 
Listing CHANGE 


. a 


Pruefs 


END 

11,82 D 
41,CAO 
00,937 
B 7,EAF 
E 6,8F5 
06,891 
82,807 
AO,E4B 
FA,5BE 
28,863 
40,8B2 
00,805 


[2347] 

[2889] 

[117] 

[513] 

[553] 

[563] 

[ 653] 
[150] 

[ 1693 ] 

[818] 

[1247] 

[ 977] 

[350] 

[309] 

[5239] 

[564] 
[350] 
[2078] 
[1127] 
[ 1393] 
[1717] 
[2256] 
[852] 
[1673] 
[1217] 
[1513] 
[ 1945 ] 
[1119] 
[1437] 
[1898] 


212 DATA 7E, 

213 DATA D9, 

214 DATA C9, 

215 DATA Dl, 

216 DATA CI, 

217 OATA 07 

218 DATA 81, 

219 DATA 8A, 

220 DATA CB, 

221 DATA 20, 

222 DATA OE, 

223 DATA 82, 

224 DATA 10, 

225 DATA IF, 

226 OATA CB, 

227 DATA 81, 

228 DATA 99, 

229 DATA B5, 

230 DATA B7, 

231 DATA 4C, 

232 DATA 75, 

233 DATA CB, 

234 DATA 5A, 

235 DATA CB, 

236 DATA CO, 

237 DATA CB 

238 DATA CB, 

239 DATA DF, 

240 DATA CB, 

241 DATA 00, 

242 DATA 3A, 

243 DATA 38, 

244 DATA FE, 

245 DATA 3E, 

246 DATA 02, 

247 DATA 30, 

248 DATA C9, 

249 DATA FE, 

250 DATA 09, 

251 DATA 3E, 

252 DATA 00, 

253 DATA FD, 

254 DATA 00, 

255 DATA 11, 

256 DATA 32, 

257 OATA 3E, 

258 DATA 7E, 

259 DATA 46, 

260 DATA BC, 

261 DATA 00, 

262 DATA 39, 

263 DATA 12, 

264 DATA 1B, 
Listing CHANGE 


IF , 30 
IF , 30 
1F.30 
1F.30 
E5,50 
07,07 
CD, 03 
82 ,CB 
BC, CI 
9A, ED 
CB , 21 
C5,01 
1F , CB 
CB, 10 
11 , E5 
OF , OF 
81 , CD 
57,CD 
81,07 
CD, 99 
81,2A 
FC, 72 
81 , OD 

FC, 7C 
67 , CB 
BC, C9 
2 F , CB 
83,89 
28,88 
21,8C 
9E , 82 
02,3E 
7F , 30 
00,C9 
C9 , OE 
24 , FE 
FE, 2D 
21,38 
38,05 
OF, C9 
40, ED 
67,3D 

DD, 71 
BC, DD 
BC, 3E 
02 ,C3 
20,CD 
00 , DD 

FD, 7C 

CO, 01 
4B , 03 
18,2 D 
21 , OC 


, 02,CB, 
, 02,CB, 
,02,CB, 
, 02,CB, 
,CD,99, 
,5 F,CD, 
, 81 , B3, 
, 5E,20, 
,23,10, 
,7B,9C, 
,00,40, 
,00,00, 
, 13,IF, 
, 1F,CB, 
, FD,60 
, FD.6F 
, B 7,8 1 , 
,75,81, 
, 0 7,B2, 
, 81,CD, 
, 8A,82, 
,CB,BC, 
,20,88, 
,C6,08, 
, BC,C9, 
,78,91 
, 2F,CB, 
, 86.DD, 
,32,DF, 
,82,09, 
,4F.3A, 
,4E,DD, 
,12.FE, 
,FE.15, 
,00,3E, 
,45,38, 
,38,05, 
,05,OE, 
,OE,15, 
, 21 , 00 , 
,80,DD, 
CD,35, 
, 10 , 00 , 
,77,10, 
, 01 , 01 , 
,OE,BC, 
,OE,BC 
,4 E,10, 
,30,20, 
,00,40 
, 15 , IE, 
,33,03, 
,42,3F, 


D8,1F , 
C8, IF , 
DO,IF , 
CO,IF, 
81 ,CD, 

75.81, 
5F,CD, 
10,E1 , 
A6.CD, 

82, C9, 
06,50, 
50,58, 
CB,12, 
13,IF. 
CD,99, 
CD,75, 
07,07, 
4B,CD, 
57,CD, 

87.81, 
CB,5E, 
CI,23, 
C9,AF, 
67,30, 
11,50, 
OE,00, 
2F,32, 
77,00, 

83, DD, 
4E , 21, 
EO,83, 
86,00, 
3C,38, 
38,05, 
03,C9, 
05 , OE, 
OE,39, 
27,3E, 
3E,OD, 
CO,11, 
21,DO, 
BC,FD, 
23,3D, 
AF,06, 
00,00, 
DD,21, 
3E,10, 
DD,23, 
ED,21, 
ED,BO, 
30,15, 
39,36, 
45,09, 


30,02,CBi 
30,02,CB, 
30,02,CB. 
30,02,CB, 
D3,81,07, 
4A,CD, 99 , 
7 5,81 , 2 A , 
CB,FC,73, 
5A,81,00, 
CD,01,82, 
DO,21,9F, 
7 E, 1F.CB, 
1F.CB,11, 
CB,12,IF, 
81,CD,B 7, 
81,4A.CD, 
07,07,FD, 

99.81, CD, 

75.81, FD, 
B2,57,CD, 
20.8B.E1, 
10,94,CD, 
32,9E,82, 
07.7C.C6, 
00,ED,52, 
47,67,80, 
9E,62,21, 
AF,CB,28, 
23.C9,06, 
6A,82,09, 
86.FE.4F, 
81 ,C9,47, 
05,OE,4E, 

OE, 27,3E, 
47 , FE,80, 
4E.3E.00, 
3E,02,C9, 
OA,C9,FE, 
C9,OE,00, 
00,40,01, 
47,3E,10, 
7C.DD,70, 
20,ED,CD, 
1A,48,CD, 
CD,32,BC, 
DO,47,DO, 
FD,67,DD, 
3 D,CD,32, 
00,40,11, 
C9,27,27, 
4B,48,4E, 
3C,00,06, 

OF, 24,2A 


CB9 
168 
637 
AAE 
862 
3C0 
F8E 
FCE 
68 A 
3 A D 
789 
A05 
C 70 
C43 
113 
EA3 
2BA 
380 
2A9 
401 
179 
F9B 
9 F 7 
178 
A63 
001 
582 
060 
9B8 
8CA 
72 D 
EAF 
DIB 
9C3 
26E 
D2A 
D2E 
35 9 
D1 7 
793 
D67 
F7E 
AFO 
ODA 
2C9 
OEE 
E04 
39 D 
2BA 
908 
469 
AF9 
2FA 


[2258] 
[2969] 
[1781] 
[21611 
[1681] 
[1682] 
[ 1694] 
[2494] 
[1686] 
[2250] 
[ 1442 ] 
[1537] 
[2352] 
[1376] 
[ 1542 ] 
[ 2425 ] 
[1793] 

[1159] 
[2195] 
[2360] 
[2089 ] 
[2836] 
[ 1938] 
[2250] 
[2069] 
[1614] 
[1789] 
[1815] 
[1807] 
[ 1829] 
[1385] 
[2091] 
[1795] 
[ 1821] 
[1445] 
[2422] 
[2379] 
[1309] 
[2139] 
[2665] 
[2097] 
[1972] 
[2258] 
[1823] 
[1537] 
[2488] 
[ 1803 ] 
[ 2000 ] 
[1932] 
[2206] 
[3073] 
{ 1487 ] 
[ 1201 ] 
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Startdiskette 
einmal anders 

Stoppress-Bilder als Vor¬ 
spann für Ihre Disketten 

Wer im Besitz des DTP-Programms Stoppress ist, kann 
nach Lektüre dieses Artikels eigene Bilder als Vorspann 
für seine selbstgeschriebenen Programme benutzen. Wie 
das geht? Sehen Sie selbst. 

Wer sich seine Stoppress-Originaldis- 
kette einmal genauer anschaut, wird si¬ 
cherlich feststellen, daß beim Start 
zwar ein Titelbild erscheint, dieses 
aber scheinbar nicht auf der Diskette 
vorhanden ist. Auch genaues Untersu¬ 
chen der Datei STOPRESS.COM mit 
einem Diskettenmonitor wird ergeben, 
daß hier das Titelbild auf keinen Fall 
Versteckt’ sein kann. 

Wenn Ihr Interesse jetzt geweckt wur¬ 
de, sollten Sie als erstes die Datei PRO¬ 
FILE.SUB untersuchen. Der Test mit 
TYPE PROFILE.SUB ergibt jetzt je¬ 
doch verwunderlicherweise, daß diese 
Datei absolut leer ist. Das ist eigentlich 
undenkbar; schließlich ermöglichen 
die Anweisungen dieser Datei erst das 
’Durchstarten’ des Programms. Löscht 
man jetzt diese scheinbar unnütze Da¬ 
tei, wird man jedoch erschrecken. 

Stoppress lädt nicht mehr automatisch! 

Also schnell wieder die Sicherheitsko¬ 
pie mit derlDatei PROFILE.SUB 'be¬ 
stücken’. 

Da es nun auch nicht an dieser Datei 
gelegen hat, gibt es eigentlich nur noch 
eine Möglichkeit: Wenn Sie DIR 
[FULL] eingeben, werden Sie feststel- 
J len, daß SUBMIT.COM stolze 24 



Das Programm Time Demo aus dem Joyce-Sonderheft 3 wurde so modifi¬ 
ziert, daß es direkt mit dem Titelbild zusammenarbeitet 


wird nun jedoch Ihr Programm ge¬ 
startet. 

Was nun noch bleibt, ist das Verändern 
der Datei SUBMIT.COM dahinge¬ 
hend, daß anstelle des Stoppress-Vor¬ 
spanns Ihr eigener Vorspann erscheint. 
Mittels SID.COM teilen Sie nun SUB- 
MIT.COM in zwei Dateien auf. Die er¬ 
ste bis Adresse H400 (submit.tei) und 
die zweite ab dieser Adresse. 
Versuchen Sie nun die zweite Datei in 
Stoppress (als sogenanntes Canvas) 
einzuladen, wird diese Aktion mit Er¬ 
folg belohnt. Es erscheint das gewohn¬ 
te Stoppress-Titelbild. 

Es wurde also einfach nur ein Stop- 
press-Bild an die modifizierte SUB- 
MIT. COM angehängt. 

Verändern Sie nun dieses Bild ein we¬ 
nig, und speichern Sie dieses dann unter 
dem Namen submit.spc ab. Mit PIP a: 
submit.com = a:submit.tei,a:submit 
.spc[0] verbinden Sie nun beide Teile. 
Nach erneutem Start können Sie Ihr ei¬ 
genes Titelbild als Vorspann für Ihr 
Programm benutzen. 

(Bernd Martin/rs) 


kByte lang ist. Hier wurde also von den 
Machern von Stoppress das Titelbild 
versteckt. 

Dem Geheimnis auf der Spur 

Mit 'DUMP SUBMIT.COM’ sollten 
Sie sich diese Datei genauer anschau¬ 
en. Ziemlich am Anfang der Datei 
taucht zweimal der Name Stoppress auf 
(H1F8, H278). Ab Adresse H400 fol¬ 
gen nun offensichtlich Daten regelmä¬ 
ßiger Natur. 

Erstellen Sie sich nun eine Startdisket¬ 
te, welche anstelle Ihrer 'originalen’ 
SUBMIT.COM diejenige von der 
Stoppress-Diskette enthält, und kopie¬ 
ren Sie zusätzlich ein beliebiges Kom¬ 
mando-Programm darauf. Tauschen 
Sie nun das in der Datei SUB- 
MIT.COM stehende ’STOPPRESS’ 
durch den Namen (ohne Extension) Ih¬ 
res gewählten Programms aus. Ist dies 
geschehen, starten Sie diese Disketten 
neu, und wie Sie sehen werden, er¬ 
scheint der Stoppress-Vorspann und 
das Titelbild. Anstelle von Stoppress 


Pzo-i?et>iqn & Pio-Booitei 
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PRO DESIGN eröffnet Ihnen die faszinierende Welt des Grafik-Designs. Im Hand¬ 
umdrehen erstellen Sie professionelle Grafiken für alle Bereiche. Software vom 
Feinsten für CPC 464/664/6128. 

— Ausführliches deutsches Handbuch im stabilen DIN-A5-Ordner 

- 10 tolle Schriften * CPC-Zeichensatz * Rahmen * Schmucklinien * Piktogramme 

- Desktop-Steuerung mit selektiven Disketten-Katalogen (superkomfortabel) 

— Bis zu 16 Druckformate /144 Ausgabeformulare 

— Kostenloser Drucker-Anpassungs-Service 

- Viele Zusatzschriften auf Erweiterungsdisketten 

- Hervorragendes Echo in der Fachpresse (z.B. Amstrad International 10/88) 

— PRO-DESIGN 2.0 3“-Diskette * Handbuch für nur 64,95 DM 

— PRO-BOOSTER, die Superergänzung zu Pro-Design: 

- Postereditor zur Erstellung bis zu 80 (achtzig!) Selten langer Schriftbänder 

- Snapshot-Utility, Dokumenten-Druckprogramm (u.a. 24-Nafel-Trelber) 

— PRO-BOOSTER, 3“-Dlskette * Anleitung für nur 34,95 DM 

Versand gegen Vorauakasae (frei) oder Nachnahme (+ 6,- DM) • Htndleranfregen angenehm 


JL a* 

TtT c 


KOSTENLOSES INFO 


Axel Weber, Postfach 260154, D 5600 Wuppertal 26 

Crusader Software 


Floppys kauft man beim Spezialisten für Diskettenlaufwerke: 

STARDRIVE- Floppys für Ihren CPC 

• STARDRIVE 5,25 External Disk Drive als Zweltlaulwerk 

• STARDRIVE 5,25 External Disk Drive als Erstlaufwerk 

• STARDRIVE 5,25 EDD u, 3“-Disk Drive als Doppellautwerk 

• STARDRIVE 3,S"-TEAC-Zweitlaulwerk In 720 KB Ausführg. 

(In H. 10/89 als sehr leise getestet) 

• STARDRIVE 5,25"-TEAC-Zweitlaufwerk in 720 KB Ausführg. 

(In H. 10/89 als komfortabel getestet) 

Weitere Vorteile: 

- 12 Monate G+L-Vollgarantie ACHTUNG! Neuer G+L-Service 

- sofortige Betriebsbereitschaft Umbau aller CPC-laufwerke auf 

- alle Kabel Im Lieferumfang enthalten Euro-PC nur DM 45,- 

- integr. Diskettenseitenumschalter 

Weitere Angebote (z.B. Laufwerke f. EURO-PC) entnehmen Sie bitte unseren 
| Prospekten/Listen (inkl. techn. Daten), die wir Ihnen gerne kostenlos zuschicken. 

| Preis zzgl Porto/Verpackung, Bitte Rechnertyp CPC 464/664 o. 6128 angeben! 

G + L electronic 

Computerhardware 
6759 Hefersweiler • Seelenerstraße 4 • Tel: 06359/2582 


nur DM 298.- 

nur DM 498,- 
nur DM 698.- 

nur DM 298,- 

nur DM348,- 
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Schalten und walten 


was ausführlichere Dokumentation in 
den Lieferumfang mit aufnehmen. 


PCW-Schnittstellenerweiterung im Test 

Neben Textverarbeitung, Spielen und Btx gibt es noch viele Dinge, die man 
mit den PCWs anstellen kann — hierzu wird lediglich die richtige Erweite¬ 
rung benötigt. Wir stellen Ihnen eine universelle Ein-/Ausgabeschnittstelle 
vor und geben Anregungen zur Anwendung. 


Besitzern des Buches ’JOYCE - mehr 
als ein Textsystem’ dürfte diese Erwei¬ 
terung bekannt sein - es handelt sich 
um die in diesem Buch in allen Details 
vorgestellte ’Parallel-Input-Output’- 
(PIO)-Karte. Die Autoren dieses Bu¬ 
ches haben sich aufgrund der Nachfra¬ 
ge nach diesem Zusatzgerät entschlos¬ 
sen, die Platine selbst herzustellen und 
anzubieten, und der PC Amstrad ein 
Exemplar zum Test übersandt. 

24 Kanäle sind frei verfügbar 

Ein zentraler Schnittstellenbaustein 
(für Insider: natürlich der 8255) er¬ 
möglicht die freie Programmierung 
von 24 Kanälen, die wirklich universell 
und beliebig per BASIC-Befehlen 
’INP’ und "OUT’ als Ein- oder Aus¬ 
gänge definiert werden können. Das 
heißt, daß - um einfache Beispiele zu 
nennen — 24 Leuchtdioden in beliebi¬ 
ger Kombination vom Computer ge¬ 
schaltet werden können oder aber der 
Ein/Aus-Zustand von 24 angeschlosse¬ 
nen Schaltern gleichzeitig abgefragt 
werden könnte. 

Natürlich sind mit einem solchen Inter¬ 
face wesentlich komplexere Aufgaben 
lösbar, so beispielsweise eine super- 


Produkt-Info 

• Preise: 

-Schnittstellenplatine, doppel¬ 
seitig, unbestückt: 49,— DM 
— Bauteilesatz zur Platine, ohne 
Anschlußkabel: 24,- DM 
—Bauteilesatz und Platine, wie 
oben: 67, — DM 
— Fertigbaustein, geprüft: 

89,- DM 

• Bezugsadresse: 

JOYCE Platinenservice 
Kersting Kröger Graßhoff GbR 
Roesoll 36 

2305 Heikendorf 

• Literatur: 

’JOYCE - mehr als ein Textsy¬ 
stem’ 

DMV 1989, 69,- DM 
ISBN 3-926177-02-0 


schnelle Datenübertragung zwischen 
zwei mit dieser Schnittstelle ausgerü¬ 
steten PCWs. Oder auch denkbar: eine 
Heizungssteuerung im Eigenheim, wo¬ 
bei acht Kanäle — als Eingang geschal¬ 
tet — Informationen von Temperatur¬ 
sensoren entgegennehmen und die ver¬ 
bleibenden 16 Kanäle - als Ausgang 
angesteuert — programmgesteuert die 
Regelventile an den Heizkörpern betä¬ 
tigen. Weitere mögliche Einsatzgebiete 
sind schulische Ausbildung oder Robo¬ 
terbau; die Anwendung von PIO-Kar- 
ten ist wirklich universell. 

Die Grundausstattung orientiert 
sich an Fortgeschrittenen 

Der Lieferumfang der Schnittstellen¬ 
platine ist den niedrigen Preisen (siehe 
Produkt-Info) zwar durchaus angemes¬ 
sen, jedoch wird dem Hardware- und 
Programmierneuling kaum Hilfe zum 
Einsatz der Karte geboten. Eine zwei¬ 
seitige Aufbauanleitung ermöglicht 
zwar die Eigenbestückung der Platine 
und einen ersten Test per Beispielpro¬ 
gramm; Anwendungsbeispiele oder 
Hinweise zum Anschluß weiterer, für 
bestimmte Zwecke benötigter Zusatz¬ 
karten fehlen jedoch, so daß der ge¬ 
neigte Anwender auf die Lektüre des 
anfangs erwähnten JOYCE-Buchs an¬ 
gewiesen ist. Hier sollten die Herstel¬ 
ler den Service ausweiten und eine et- 


Die Hardware: 
einfach, aber schnell 

Die 80x94 mm große Platine ist dop¬ 
pelseitig aufgebaut, chemisch durch¬ 
kontaktiert und mit Bestückungsauf¬ 
druck versehen. Die wirklich gute 
Qualität rechtfertigt den etwas hoch an¬ 
mutenden Preis durchaus. Neben zwei 
Bausteinen zur Adreßdecodierung ist 
der schon angesprochene Schnittstel¬ 
lenbaustein einziges aktives Bauele¬ 
ment auf der Platine. Obwohl der 8255 
einen durchaus brauchbaren Ausgangs¬ 
strom abgeben kann, ist vor einem di¬ 
rekten Anschluß von Peripheriegeräten 
abzuraten, wenn diese eingangsseitig 
nicht mit eigenen Treiberbausteinen 
versehen werden. Zur Datenübertra¬ 
gung ist der eher einfache Aufbau der 
Platine jedoch ideal, sind doch unter 
Verwendung entsprechender Assem¬ 
blerprogramme Übertragungsraten in 
der Größenordnung von 100 kByte/s 
und mehr realisierbar! 

Fazit 

Die vorliegende PIO-Karte für die 
PCWs stellt aufgrund ihrer einfachen 
und preiswerten Konzeption durchaus 
eine Alternative zu Mitbewerbern dar 
(vergleiche ’JOYCE, das Steuergenie’, 
PCI 8/89, S. 78 f.). 

Der Aufbau und der Einsatz der 
Schnittstelle ist für Einsteiger weniger 
geeignet; jedoch bieten die Hersteller 
bei Problemen oder Fragen zu Anwen¬ 
dungen technischen Support an. Das 
Preis-Leistungs-Verhältnis ist fair. 


(me) 


Die PCW-Schnittstel- 
lenplatine, hier an ei¬ 
nen kleinen Testauf¬ 
bau angeschlossen 
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Wie teuer ist mein Auto? 

Kfz-Kos ten berechn ung 

Möchten Sie sich einen neues Auto zulegen, oder finden Sie es einfach nur 
interessant zu wissen, w as Sie Ihr Auto pro Jahr oder Monat kostet? Dann 
sollten Sie sich dieses Programm einmal genauer anschauen. 


Nach dem Start des Programms wer¬ 
den Sie gefragt, ob Sie eine alte Datei 
einladen möchten. Ist dies nicht der 
Fall, müssen erst einmal einige Hinga¬ 
ben gemacht werden. 

Vorbereitung 

Als erstes geben Sie den Fahrzeugher¬ 
steller und den Typ ein. Die nächste 
Eingabe ist nun der Beschaffungswert 
und die zu erwartende Lebensdauer. 
Die Lebensdauer bezieht sich hierbei 
nicht auf die tatsächliche Lebensdauer, 
sondern nur auf den Zeitraum vom 
Kauf bis zum Verkauf. 

Nun will der Computer von Ihnen wis¬ 
sen, welchen Betrag Sie nach dem Ver¬ 
kauf noch für Ihr Auto erzielen werden 
und wieviel Kilometer Sie voraussicht¬ 
lich jährlich damit zurücklegen wer¬ 
den. Sind nun die kalkulatorischen Zin¬ 
sen, die jährlichen Versicherungsbei¬ 
träge und der Kraftfahrzeugsteuerbe¬ 
trag eingegeben, müssen Sie dem 
Computer noch eventuell anfallende 
Kosten für die Unterstellung des Autos 
mitteilen. 

Das Programm will außerdem den 
Kraftstoffverbrauch pro 100 Kilome¬ 
ter, den durchschnittlichen Kraftstoff¬ 
preis sowie die Lebensdauer der Reifen 
(in Kilometer) und die Kosten für einen 
Reifen wissen. 


Um das Bild abzurunden, geben Sie 
nun noch allgemeine Kosten für War¬ 
tung und Inspektion und sonstige Ko¬ 
sten ein. 

Sie erhalten nun eine übersichtliche 
Auflistung der errechneten Kosten pro 
Jahr, Monat und Kilometer, jeweils mit 
und ohne Wertverlust. 

Sie haben jetzt verschiedene Wahlmög¬ 
lichkeiten. 


1. Wertegruppe ändern 

Korrekturmöglichkeit für alle bisheri¬ 
gen Eingaben 

2. Protokollausdruck 
Druckerausgabe in aufbereiteter Form 

3. Programm beenden 

Hier können Sie das Programm been¬ 
den, neu starten oder wieder zurück ins 
Menü springen. 

4. Daten abspeichern 

Hier können Sie alles abspeichern, um 
es später, wenn sich irgendwelche An¬ 
gaben ändern sollten, wieder einladen 
und ändern zu können. 

(Joachim Behnke/rs) 


Dieses Programm ist in BASIC geschrieben. 
Nach dem Eingeben sollte es zuerst mit 
SAVE"KFZKOST.BAS“ abgespeichert wer¬ 
den. Später kann es dann unter BASIC mit 
RUN''KFZKOST" wieder eingeladen werden. 



Abbildung I: Haben Sie alle Eingaben getätigt erscheint eine übersichtliche Auflistung aller Kosten, 
die für Ihr Auto anfallen 
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Systemtuning 

Optimierung des Small- 
C-Compilers 

Daß Small-C rund siebenmal langsamer rechnet als 
Turbo Pascal, gilt im Grunde nicht für den Joyce. 

Durch eine kleine Änderung, die in fünf Minuten erle¬ 
digt ist, wird die Fließkomma-Arithmetik von Small-C 
fast so schnell wie die von Turbo Pascal und deutlich 
schneller als die von Mallard-BASIC. 

Was mich störte, war die für einen C-Compiler viel zu lang¬ 
same Fließkommaberechnung. Stutzig machte mich dabei 
eine Bemerkung in der Programmbeschreibung, in der es 
heißt, die Float-Bibliothek sei umgeschrieben worden, da die 
amerikanische Originalfassung den alternativen Registersatz 
des Z80-Prozessors benutze und daher auf dem CPC nicht 
lauffähig sei. Ob und warum das auf dem CPC so ist, weiß 
ich nicht. Auf dem Joyce ist der alternative Registersatz je¬ 
doch uneingeschränkt nutzbar. Da sich auf der Programm¬ 
diskette erfreulicherweise auch die Quellcodes der Bibliothe¬ 
ken befinden, schaute ich mir die Float-Bibliothek einmal nä¬ 
her an und stellte dabei fest, daß der Befehl EXX’ durch eine 
Routine namens ’exdreg’ und der Befehl ’EX AF.AF' durch 
eine Routine namens ’afafex’ ersetzt worden war. Die Stellen 
sind recht einfach zu finden, da Kotulla die ursprüngliche 
Form lediglich auskommentiert hat. 

Um den Originalzustand wiederherzustellen, geht man fol¬ 
gendermaßen vor: 

1. ’ float.c’ in den Editor laden. 

2. Die Routinen ’exdreg’ und ’afafex’ löschen. Sie stehen 
ziemlich am Anfang der Datei und sind leicht zu erkennen, 
da sie im Gegensatz zum restlichen Code mit Kleinbuch¬ 
staben geschrieben sind. 

3. An jeweils dreizehn Stellen im Quellcode werden die Rou¬ 
tinen ’afafex’ und ’exdreg’ aufgerufen. Man ändert die je¬ 
weiligen Zeilen folgendermaßen: 

’exdreg /* EXX */’ wird zu: EXX 
und 

’afafex /* (AF,AF’) */’ wird zu: AF,AF’ 

4. ’float.asm’ abspeichern. 

5. Mit folgendem Befehl neu compilieren: cc -M float 

6. Neu assemblieren: zmac float = float 

Das Ganze dauert maximal zehn Minuten. Die Fließkomma- 
Arithmetik von Small-C ist danach fast genauso schnell wie 
die von Turbo Pascal. 

Die ’printfl’- und ’printf2’-Bibliothek 

An den ’printf’-Bibliotheken vermißte ich vor allem die for¬ 
matierte Ausgabe in eine Datei, nämlich die Funktion 
’fprintf()’. Also schaute ich mir auch hier die Quellcodes an 
und las mit Erstaunen folgenden Eingangskommentar: 

/# printf(controlstring,arg,arg, ...) or 
** printf(file,controlstring,arg,arg, ...) - formatted print 
** operates as described by Kernighan & Ritchie 
** only d, x, c, and u are supported. 

*/ 

Das hieß nichts anderes, als daß die formatierte Ausgabe in 



eine Datei bereits eingebaut war! Ich probierte es gleich aus, 
doch es funktionierte nicht. Der Grund war jedoch recht 
schnell herausgefunden. Das Argument “file“ vordem Con¬ 
trol-String ist ein Integer-Wert, der beim Öffnen einer Datei 
von der Funktion ’fopen()’ zurückgegeben wird. Durch Pro¬ 
bieren fand ich heraus, daß auf dem Joyce dieser Wert zwi¬ 
schen vier und acht liegen kann, je nachdem, um die wieviel¬ 
te geöffnete Datei es sich handelt. Diese Werte werden vom 
Programm nicht erkannt, was jedoch mit einer winzigen Än¬ 
derung im Quellcode geändert werden kann: 

1. ’printfl .c’ in den Editor laden. 

2. Ziemlich am Anfang des Quellcodes steht die Zeile: 
if(device = = (device&31)) 

[ctl = *—nxtarg;) 

Die erste Zeile wird geändert: 

if((device= =(device&31)) I ((device<8) & (device 
>4))) 

[ctl = * -nxtarg;] 

3. Mit ’cc -M printfl’ compilieren. 

4. Mit ’zmac printfl =printfl’ compilieren. 

5. Die gleiche Änderung bei ’printf2’ durchführen. Die zu 
ändernde Stelle sieht genauso aus wie bei 'printfl'. 

Nun funktioniert die formatierte Ausgabe in eine Datei. Mit 
dem Beispielprogramm 

# include iolib.h 

# include printf 1. h 
main() 

( int fp; 

fp=fopen( u test.dat“, "w u ) ; 

printf ( "%s%6 \ n“, “geoeffnete Datei Nr.“,fp); 

printf(fp, “*s*d \ n“, “geoeffnete Datei Nr. “,fp): 

> fclose(fp); exit(); 

wird mit der ersten ’printf'-Anweisung “geoeffnete Datei 
Nr.5“ auf den Bildschirm geschrieben, der zweite 
’printf-Befehl schreibt den gleichen Text in die Datei 
“test.dat“. Das Laufwerk kann übrigens bei ’fopen()’ mit an¬ 
gegeben werden. Mit ’fp=fopen(“m:test.dat“,“w w )’ würde 
die Datei auf dem virtuellen Laufwerk M erscheinen. Das 
einzige, was uns jetzt noch vom Standard nach Kernighan 
und Ritchie unterscheidet, ist die Schreibweise ’printf()' bei 
der Ausgabe in eine Datei. Es müßte eigentlich ’fprintf()’ 
heißen. Ich habe deshalb in die Header-Dateien ’printfl.h’ 
und ’printf2.h’ jeweils noch ’#define fprintf printf einge¬ 
fügt. Nun ist auch die Code-Kompatibilität gewährleistet, 
und wir könnten in unserem kleinen Beispielprogramm 
schreiben: 
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I printf("$s$d\nV l geoeffnete Datei Nr.",fp); 

I fprintf (fp, "#s$d \ n“, “geoef fnete Datei Nr. “, fp); 

Wenn man schon die ’printf-Bibliotheken neu compiliert, 
I kann man bei dieser Gelegenheit auch gleich ein paar Stan- 
I dard-Befehle hinzufügen, die normalerweise in jedem or¬ 
dentlichen C-System enthalten sind: 

I 7 * 

I xx strcpy - kopiert string s nach string t 
I x* 

I xx Code-kompatibel mit anderen C-Systemen (ANSI-Standard) 

I V 

I strcpy(s,t) 

I char*s,*t; 

I ( 

while(*s++ = *t++); 

) 

i /* 

i *x strlen - liefert Laenge der Zeichenkette s 
I xx 

I ** Code-kompatibel zu anderen C-Systemen (ANSI-Standard) 

V 

I strlen(s) 

I char»s; 

I ( 

int n; 
n=0; 

while(*s != ' \ 0') ( s++;n++; j 
return(n); 

I ] 

I /* 

I xx strsave - kopiert den String s in einen von alloc() 

I ** bereitgestellten Bereich.Zurueckgegeben wird 
I *x die Adresse der Kopie 

I xx Code-kompatibel zu anderen C-Systemen (ANSI-Standard) 

I */strsave(s) 

I char#s; 

( 

char *pj 

if((p = alloc(strlen(s)+l)) !=NULL) strcpy(p,s); 
return(p); 

I 1 

/* 

*x strcmp - Prueft, ob die Zeichenketten s und t gleich 
xx sind und liefert ein negatives oder positives 
xx Resultat oder Null, je nachdem, ob s lexikogra- 
xx fisch kleiner, groesser oder gleich t ist. 
xx Das Resultat entsteht als Differenz der 
** Zeichen an der ersten Stelle, an der s und t 
** nicht mehr gleich sind 
xx 

** Code-kompatibel zu anderen C-Systemen (ANSI-Standard) 

V 

strcmp(s,t) 
char *s,xt; 

while(*s == *t) 

[ if(*s == ' \0' return(O); 
s++;t++; 

return(*s - *t); 

I 

In der Programmbeschreibung der ’printf’-Bibliotheken 
wird die Funktion ’utoi()’ erwähnt. Sie soll einen ASCI1- 
String, der eine vorzeichenlose Integerzahl enthält, in eine 
Integerzahl umwandeln. Diese Funktion funktioniert jedoch 
nicht im beschriebenen Sinne, was auch nicht erstaunt, wenn 
man sich die Definition anschaut: 

utoi(decstr,n) char *decstr; int *n; 

Das Ergebnis ist also ein Zeiger auf eine Integerzahl. Wie ein 
Blick in den Quellcode zeigt, handelt es sich dabei jedoch 
keineswegs um die umgewandelte Zahl, sondern um eine 
Feldgröße. Der Sinn dieser Funktion ist mir nicht ganz klar. 
Da die Umwandlung von ’string’ nach ’integer’ jedoch häu¬ 
fig benötigt wird, habe ich die Funktion ’stoiQ’ hinzugefügt: 


/* 

xx stoi - Wandelt Dezimalstring str in Integerzahl. Gibt 
xx Integerzahl zurück.Negative Vorzeichen werden 
xx berücksichtigt 
*/ 

stoi(str) 
char Xstr; 

[ int sgn,x; 
sgn=l;x=0; 

if(*str == '-') ( sgn = -l;str++; j 
while((*str >= ’0') & (xtr <= 9)) 
x = (10 x x) + (xstr-t-+ - • 0'); 
x = sgn * x; return x; 

] 

Als Beispiel für den Einsatz von ’stoi()’ dient das folgende 
kleine Programm, das zwei Integerzahlen von der Konsole 
einliest, diese dann multipliziert und das Ergebnis am Bild¬ 
schirm anzeigt: 

#include iolib.h 
# include printfl.h 
main() 

[ int x,y; 
char *s; 

printf ("Geben Sie die erste Zahl ein: "); 
gets(s); 
x=stoi(s); 

printf ("Geben sie die zweite Zahl ein: "); 
gets(s ); 
y=stoi(s); 
x=xxy; 

printf(“%s%d\n";"Ergebnis: ",x); 
exit(); 

) 

Die anderen Umwandlungsfunktionen wie ’atof()’ oder 
’ftoaO’ funktionieren alle einwandfrei. 

Die zusätzlichen Funktionen werden einfach am Ende der 
Quellcode-Dateien von 'printfU und ’printfT dazugeschrie¬ 
ben. Nach dem Neucompilieren stehen sie dann zur Verfü¬ 
gung. Auf diese Weise kann man die Bibliotheken nach Be¬ 
lieben ergänzen. 

Oft schreibt man Programme, die nur einige Angaben vom 
Anwender verlangen und keine wesentlichen Textausgaben 
produzieren. In diesen Fällen verzichte ich gerne auf die 
’printf-Bibliotheken und arbeite nur mit ’puts()’ aus der 
’iolib’-Bibliothek: 

puts("Geben Sie einen Dateinamen an: ") jgets(name); 

Dabei stört jedoch der automatische Zeilenvorschub, den 
’puts()’ nach jeder Ausgabe produziert. Um diesen Zeilen¬ 
vorschub aus der Funktion herauszunehmen, lädt man ’io- 
lib.c’ in den Editor und löscht am Ende der Funktion ’puts()’ 
den Befehl ’putchar(CR)’. Dann compiliert man die geänder¬ 
te Datei in der gewohnten Weise. Um einen Zeilenvorschub 
zu erzwingen, muß man nun natürlich zusätzlich ’put- 
char(CR)’ beziehungsweise ’putchar(13)’ im Programmcode 
schreiben (CR ist in ’iolib’ als 13 definiert worden). 

Grafikprogrammierung in Small-C 

In der Bibliothek ’grafik’ habe ich die GSX-Grafikbefehle 
zusammengefaßt. Ich glaube, in keiner anderen Sprache als 
C ist GSX so einfach zu programmieren. Das Listing bedarf 
wohl keiner großen Erläuterungen. Ich werde deshalb nur 
die Befehle kurz beschreiben, die über den normalen GSX- 
Standard hinausgehen beziehungsweise die ich erweitert 
habe. 

openw(id,p) 

Öffnet grafische Arbeitsstation. Der Integer id gibt das Aus¬ 
gabegerät an (1 Bildschirm; 11 Plotter; 21 Drucker). Derln- 


6/7’90 PC 99 



nPCW 


teger p gibt an, ob die Ausgabe im gleichen Achsenverhält¬ 
nis, also quadratisch, erfolgen soll (p = 1) oder ob die gesam¬ 
te Ausgabefläche des Ausgabegeräts genutzt werden soll 
(p=0). Bei maßstäblichen Zeichnungen sowie Kreisen und 
Bögen ist p = 1 vorzuziehen. 

updatewO 

Bei Ausgabe auf Drucker oder Plotter startet ’updatew()’ die 
Ausgabe (letzter Grafikbefehl vor 'closew()’). 

closewO 

Schließt grafische Arbeitsstation. Stellt ursprünglichen Zu¬ 
stand wieder her, löscht den Bildschirm und schaltet Text¬ 
cursor ein. 

escape(n) nur auf Bildschirm 

Escape-Befehle. Der Integer n steht für den gewünschten Be¬ 
fehl: 

n= 4: Textcursor eine Zeile nach oben 
n= 5: Textcursor eine Zeile nach unten 
n= 6: Textcursor eine Spalte nach rechts 
n= 7: Textcursor eine Spalte nach links 
n= 8: Textcursor in die linke obere Ecke 
n= 9: Ab Cursorposition Bildschirm löschen 
n = 10: Ab Cursorposition Zeile löschen 
n= 13: Inverse Textausgabe einschalten 
n = 14: Inverse Textausgabe ausschalten 
n=19: Letzten Grafikcursor löschen (“Cursorleichen“ ent¬ 
fernen) 

set(s,r) nur auf Bildschirm 

Setzt Textcursor in Spalte s und Reihe r 

settext(text) nur auf Bildschirm 

Schreibt Text ab der Position des Textcursors. Der Parame¬ 
ter ’texf ist ein Zeiger (char *text). 

Ich empfehle, statt ’settext()’ die Funktion ’text()’ zu benut¬ 
zen (siehe unten), da ’text()’ unabhängig vom Ausgabegerät 
funktioniert. 

move(x,y) nur auf Bildschirm 

Setzt Grafikcursor an Position x,y (x,y sind Grafikkoordina¬ 
ten im Bereich von 0 bis 32768). 

’move(x,y)’ ist im Zusammenspiel mit ’escape(19)’ zu ver¬ 
wenden, da sonst zahllose ’Cursorleichen’ auf dem Bild¬ 
schirm verbleiben. Ich empfehle, statt ’move()’ und ’escape 
(19)’ lieber den Befehl ’grafinpO’ zu benutzen, der weiter 
unten vorgestellt wird. Das ist wesentlich bequemer. 
Iinel(xl,yl,x2,y2) 

Zeichnet eine Linie vom Punkt xl,yl zum Punkt x2,y2. 

Iine2(xl ,y 1 ,x2,y2,x3,y3) 

Linienzug aus zwei Linien 

Iine3(xl,yl,x2,y2,x3,y3,x4,y4) 

Linienzug aus drei Linien 

polyline(n) 

Linienzug, der von n Punktepaaren beschrieben wird. Die 
Punktepaare selbst stehen im Feld ’ptsin[]' in der Reihenfol¬ 
ge xl,y 1 ,x2,y2,... 

polyniarker(n) 

Setzt n Markierungen an den in ’ptsinf]’ festgelegten 
Punkten. 

text(x,y,string) 

Schreibt den Text in ’string (char *string o. string[])’ an die 
Grafikposition x,y. 

f_area(n) 

Zeichnet gefülltes Vieleck, das aus n Punkten gebildet wird. 


Die Koordinaten x und y der Punkte stehen in ’ptsin[]\ 
bar(xl,yl,x2,y2) 

Zeichnet gefüllten Balken, dessen untere linke Ecke mit 
xl,yl und dessen obere rechte Ecke mit x2,y2 festgelegt ist. 
Die weiter unten beschriebene Funktion ’rechteck()’ erledigt 
das gleiche wesentlich schneller 

t_direct(c) 

Legt die Textrichtung fest. Mit dem Integer c kann die Text¬ 
ausgabe um 0, 90, 180, 270 oder 360 Grad gedreht werden. 
Wird allerdings nur auf Drucker oder Plotter ausgeführt. 

linetype(c) 

Mit c = 1 bis 5 wird der Linientyp festgelegt. 

markertype(c) 

Mit c=l bis 5 wird der Markierungstyp bestimmt 
(., + ,*,o,x). 

markerscale(c) 

Legt die Größe der Markierungen fest.Sinnvolle Werte sind 
c = 200 bis 3000. 

schraffur(c),grauton (c) 

Bei ’schraffurO’ kann c Werte von 0 bis 3 annehmen, bei 
’grauton()’ von 1 bis 6. Die Namen sind etwas irreführend. 
Normalerweise sollte ’grauton()’ die Schraffurart bestimmen 
und ’schraffurQ’ die Grautöne, aber hier geht bei GSX ir¬ 
gend etwas durcheinander. Tatsache ist jedenfalls, daß mit 
’schraffurO’, ’grauton()’ und Kombinationen aus beiden alle 
möglichen Muster erzeugt werden können. Die genaue Sy¬ 
stematik konnte ich noch nicht erkennen. Probieren Sie 
selbst! 

grafinp(x,y) 

Erzeugt einen Grafikcursor an der Position x,y (jeweils 
0 - 32767). Der Grafikcursor kann dann mit den Cursortasten 
frei über den Bildschirm bewegt werden. Wird mit der Cur¬ 
sortaste gleichzeitig Shift betätigt oder ist Caps-Lock ge¬ 
drückt, bewegt sich der Cursor sehr langsam, ansonsten 
schneller. Wird irgendeine andere Taste gedrückt, ver¬ 
schwindet der Cursor wieder, und ’grafinpO’ gibt die letzten 
Grafikkoordinaten als Zeiger auf ’ptsoutfl]’ zurück. Die 
letzte Cursorposition kann also entweder direkt aus 
’ptsout[l]’ und ’ptsout[2J’ ausgelesen oder mit Hilfe des zu¬ 
rückgegebenen Zeigers ausgewertet werden, was in C oft 
eleganter ist. 

writingmode(c) 

Mit c = 1 bis 4 wird die Art der Pixelsetzung festgelegt. 
c = 1: Alle Zeichen, Linien und Muster werden entsprechend 
den Voreinstellungen gezeichnet und auch durch nochmali¬ 
ges Überzeichnen nicht gelöscht. 
c=2: Bei Joyce ohne Bedeutung. 

c=3: Durch nochmaliges Überzeichnen werden die gesetz¬ 
ten Pixel wieder gelöscht. 
c=4: Entspricht bei Joyce c = 3. 
circle(x,y,r,p) 

Zeichnet einen Kreis mit dem Radius r um den durch x und y 
festgelegten Punkt. Bei p=0 wird der Kreis nicht gefüllt, bei 
p > 0 wird er mit dem aktuellen Muster gefüllt. Mit p = 0 wird 
der Kreis wesentlich schneller gezeichnet, da der Füllalgo¬ 
rithmus von GSX um ein Vielfaches langsamer ist als die von 

mir geschriebene Kreisroutine (genauer:_bogen(), siehe 

unten). Man komme also nicht auf den Gedanken, das Füll¬ 
muster mit der Nummer Null voreinzustellen und dann mit 
p>0 Kreise zu zeichnen. Das wäre nur dann sinnvoll, wenn 
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alles, was sich eventuell innerhalb des Kreises befinden 
könnte, gelöscht werden soll. 

c_bow(x,y,r,\vl,w2) 

Zeichnet einen Kreisbogen mit dem Radius r um den Punkt 
x,y vom Winkel wl bis Winkel w2 (in Grad). Der Winkel 
wird mathematisch richtig von der Abszisse gegen den Uhr¬ 
zeigersinn gezählt. Mit wl =90 und w2=270 bekäme man 
also die linke Hälfte eines Kreises, mit wl =270 und w2 = 90 
bekäme man die rechte Hälfte. 

pie—sl(x,y ,r, wl ,\v2) 

Zeichnet einen Kreisausschnitt. Die Bedeutung der Parame¬ 
ter entspricht 'c—bow'. Der Kreisausschnitt wird mit dem 
aktuellen Muster gefüllt. 

c—part(x,y,r,wl,w2) 

Zeichnet einen Kreisabschnitt.Die Bedeutung der Parameter 

entspricht auch hier ’c_bow’. Der Kreisabschnitt wird mit 

dem aktuellen Muster gefüllt. 

Achtung! Die Winkel bei ’c_bow()\ ’pie_sl()’ und 

’c—part()’ werden immerauf 5-Grad-Schritte gerundet! Mit 
’c—bow(x,y,r,7,98)’ wird ein Kreisbogen von wl =5 Grad 
und w2= 100 Grad gezeichnet. Durch diese Einschränkung 
war es möglich, die Routinen sehr schnell zu halten. Für ei¬ 
nen Kreis werden lediglich 17 Multiplikationen und 144 Ad¬ 
ditionen beziehungsweise Subtraktionen benötigt. Einen 
schnelleren Kreisalgorithmus gibt es wohl kaum. Außerdem 
konnte auf die ’transcen’-Bibliothek verzichtet werden. Im 

Listing findet sich die Funktion ’_ bogen(x,y,r,wl,w2)’. 

Diese Routine darf nicht direkt aufgerufen werden! Sie dient 
vielmehr als Hilfsroutine für die Funktionen ’circleO’, 

c —bow()\ ’pie—sl()' und ’c_part()’, mit ihr werden die 

Kurvenpunkte errechnet. Wem also die Einteilung in 
5-Grad-Schritte zu grob ist, muß nur die Funktion 
’—bogen()’, eventuell unter Zuhilfenahme von Sinus und 
Kosinus, aus der ’transcen’-Bibliothek neu schreiben. 

Weitere Tips 

Mehrdimensionale Felder lassen sich in Small-C nicht de¬ 
klarieren. Das heißt jedoch nicht, daß man auf diese verzich¬ 
ten müßte. Man muß lediglich die Verwaltungsarbeit, die ei¬ 
nem bei größeren Systemen abgenommen wird, selbst erledi¬ 
gen. Will man zum Beispiel ein zweidimensionales Feld mit 
5x3 Elementen anlegen, so ist zuerst zu beachten, daß in C 
alle Felder von null ab gezählt werden. 
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Dieses zweidimensionale Feld muß nun in einem eindimen¬ 
sionalen Feld abgebildet werden. 
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Bei einem Feld der Größe x[a][b] wird das Element x[i][j] 
demnach wie folgt in einem eindimensionalen Feld be¬ 
stimmt: 

x[i][j] entspricht x[i*(a-2)+j] 

wobei a und b die Null mit einschließen. Bei unserem Bei¬ 
spielfeld der Größe x[51(3] würde man das Element x[3][l] 
im eindimensionalen Feld bei x[3*(5-2)+ 1] = x[10] wieder¬ 
finden. Jedes beliebige Element x[ij(j] liegt hier somit bei 
x[i*3+j]. Diese Rechnung machen auch größere C-Systeme, 
nur merkt man nichts davon. Der Rechner kennt intern keine 
mehrdimensionalen Felder, unser RAM-Speicher ist prinzi¬ 
piell linear, also eindimensional organisiert. Nun ist ein Aus¬ 
druck wie x[i*3 + jj für ein zweidimensionales Feld natürlich 
wenig anschaulich, doch hier kommt uns Small-C entgegen: 
Die Schreibweise x[i]fj] wird nämlich nicht als Fehler rekla¬ 
miert, sondern einfach als x[i+j] interpretiert! Wir können 
also statt xfi*3+j] auch x[i*3][j] schreiben. Damit kann man 
auch optisch deutlich machen, daß es sich hier um ein zweidi¬ 
mensionales Feld handelt. 

cpm() ist einer der wertvollsten Befehle von Small-C. Mit 
diesem Befehl können alle BDOS-Aufrufe direkt ausgeführt 
werden. Als Beispiel dazu möge das Listing der Grafikbi¬ 
bliothek dienen. 

Nachdem die Felder ’contrl[]\ ’ptsin[]’ und ’ptsouf mit Da¬ 
ten gefüllt wurden, wird GSX mit ’cpm(l 15.&pb[l])’ aufge¬ 
rufen. Daran sieht man, wie ’cpm()' funktioniert: 
cpm(BDOS-Funktiosnummer,Daten) 

An erster Stelle steht die BDOS-Funktionsnummer, die ins 
BC-Register geladen wird, an zweiter Stelle stehen die Da¬ 
ten, die an die BDOS-Funktion im Register E oder DE über¬ 
geben werden. Bei BDOS-Funktionen, die keine Parameter 
benötigen, wird hier Null eingetragen. Mit diesem Befehl 
können auf einfache Weise Routinen geschrieben werden, 
die zum Beispiel den Zeichensatz von Bildschirm und 
Drucker wechseln (die geschweiften und eckigen Klammern 
stehen im amerikanischen Zeichensatz!) oder Druckerausga¬ 
ben produzieren oder die serielle Schnittstelle auslesen (Gra¬ 
fik-Cursor mit Maus bedienen!) und was die BDOS-Funktio¬ 
nen sonst noch alles bieten. 

Im Editor kann man mit der Plus-Taste rechts von der Leer¬ 
taste bequem zwischen Einfügemodus und Überschreibmo¬ 
dus umschalten. 

So, das war’s. Wer sich eine Weile mit dem Small-C-Com- 
püer beschäftigt, wird sicher noch viele andere Eigenschaf¬ 
ten entdecken, die man in einem Public-Domain-Programm 
kaum vermuten würde. Zwar fehlen Small-C trotzdem einige 
Dinge zu einem vollständigen C-System, wie zum Beispiel 
Speicherklassen oder Felder von Zeigern. Ich glaube jedoch 
kaum, daß sich solch ein vollständiges System auf einem 
8-Bit-Rechner in zufriedenstellender Weise installieren läßt. 
Aus dieser Sicht stellt Small-C einen guten Kompromiß dar. 

(Peter Selke/rs) 


Aus Platzgründen haben wir uns dafür entschie¬ 
den, daß die vorgestellte Bibliothek ’grafik’ 
nicht abgedruckt wird. Interessenten können die¬ 
se jedoch der DATABOX zu diesem Heft ent¬ 
nehmen. 
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LocoScript wird 
erwachsen? 

24 Pin Printer Drivers Di sc 

Vielschreiber und professionelle Anwender haben sie wahrscheinlich schon 
lange vermißt, auch der normale Anwender wird mit dem Verfall der 
Druckerpreise schon öfter eine solche Erweiterung herbeigesehnt haben. 

Mit dem Erscheinen der 24 Pin Printer Drivers Disc schließt sich eine Lücke 
im Angebot der LocoScript-Familie. Endlich können auch Besitzer eines 
24-Nadel-Druckers den kompletten Zeichensatz ihres Textverarbeitungspro¬ 
gramms mitsamt seinen Gestaltungsmöglichkeiten nutzen. Dies ist es wert, 
einen näheren Blick auf das Angebot zu werfen. 


Viele Joyce/PCW-User haben ihren 
Computer vor allem als Textsystem ge¬ 
kauft, in dem Drucker und Textverar¬ 
beitung integriert waren. Auf gestiege¬ 
ne Ansprüche an Verarbeitungsge¬ 
schwindigkeit und Druckqualität rea¬ 
gierte Locomotive Software mit der 
Entwicklung von LocoScript 2.xx, 
Amstrad mit dem PCW 9512, der einen 
Typenraddrucker mitbekam. Nun kann 
allerdings ein Typenraddrucker keine 
Geschwindigkeitsrekorde brechen und 
stellt damit auch keine direkte Alterna¬ 
tive für Besitzer der PCW-8000-Serie 
dar, zudem diese Art von Drucker 
überhaupt keine Grafikfähigkeiten aul¬ 
weisen. Was bleibt, sind 24-Nadel- 
Drucker, die allen Ansprüchen voll ge¬ 
recht werden: hohe Druckgeschwin¬ 
digkeit bei LQ-Druckqualität und die 
Fähigkeit, Grafiken zu Papier zu brin¬ 
gen. Da LocoScript (bedingt durch die 
integrierte Bauweise des Joyce) eine 
totale Software-Kontrolle über die 
Druckausgabe des internen Druckers 
ausübt, konnten 24-Nadel-Drucker bis¬ 
lang nur unzureichend unterstützt wer¬ 
den. Dies ändert sich mit dem hier vor¬ 
gestellten Zusatzprogramm radikal. 

Aus dem Inhalt 

Das Programmpaket enthält eine Dis¬ 
kette mit Druckertreibern für viele der 


gängigen 24-Nadel-Drucker auf Seite 
A: (falls Ihrer zufällig nicht dabei sein 
sollte, lohnt eine Rücksprache mit dem 
Vertreiber oder Locomotive Software 
direkt). Außerdem werden vier LQ- 
Zeichensätze geliefert: SANS SERIF 
+ SANS SERIF LIGHT sowie STAN¬ 
DARD + STANDARD LIGHT, wo¬ 
bei LIGHT jeweils eine feine, nicht so 
kräftige Variante darstellt (siehe Bild 1 
bis 4). 

Schließlich wird auch noch eine LO- 
COCHAR-Version für 24-Nadler mit¬ 
geliefert, so daß der Entwicklung eige¬ 
ner Zeichensätze keine Grenzen ge¬ 
setzt sind. Seite B: ist für das 
Installations- und Update-Programm 
auf LocoScript 2.2x reserviert. Dies 
ermöglicht zwar erst die Zusammen¬ 
fassung der vielen Teilprogramme von 
LocoScript zu einem “integrierten Pa¬ 
ket“, bedeutet allerdings auch einen 
Wermutstropfen für alle LocoScript- 
l.xx-Benutzer, denn ihnen ist ein sol¬ 
ches Update (und damit die Verwer¬ 
tung der 24-Nadel-Disk) verwehrt. 

Hier hilft nur der Erwerb einer neueren 
LocoScript-Version. Vielleicht sollte 
an dieser Stelle auch erwähnt werden, 
daß ein Update nur landessprachenspe¬ 
zifisch erfolgen kann; das bedeutet, mit 
einem deutschen Installations- und Up¬ 
date-Programm können auch nur deut¬ 


sche LocoScript-Produkte verarbeitet 
werden. Englische Originalprodukte 
werden zum Beispiel zurückgewiesen. 

Installation 

Zur Software gehören eine Update-An¬ 
leitung sowie ein Installations- und Be¬ 
nutzerhandbuch. Die Installation er¬ 
folgt in zwei Schritten: 

• Zunächst einmal muß innerhalb des 
Update-Vorgangs bei der Frage nach 
dem zu unterstützenden Drucker die 
24-PIN-PRINTER-Option gewählt 
werden. Wenn Sie genügend Speicher¬ 
platz haben (PCW 8512), sollten Sie 
auch die anderen beiden Optionen 
(BUILD IN MATRIX und STAN¬ 
DARD PRINTER) zusätzlich wählen, 
um später unter drei verschiedenen 
Druckertreibern wählen zu können. 
Damit erhalten Sie sich die Möglich¬ 
keit, eventuell vorhandene Fonts auf 
dem internen Drucker weiter nutzen zu 
können. 

• Zur eigentlichen Installation müssen 
folgende Dateien auf Laufwerk M: ko¬ 
piert werden: die vier Zeichensätze 
24PIN. #xx, die Datei LQ24.DRV so¬ 
wie der spezielle Druckertreiber 
24xxxxxx.PRI für Ihren Drucker. Die¬ 
sen bestimmen Sie über die Liste in der 
Datei 24PIN.LST. LocoScript erwartet 
allerdings, daß Sie diesen Druckertrei¬ 
ber in 24PIN.PRI umbenennen. Über 
das Einstellmenü (f6) kann jetzt die 
Standardeinstellung des Druckers auf 
24PIN und den von Ihnen gewählten 
Zeichensatz geändert werden (Bild 5). 
Anschließend wird diese Einstellung in 
der Datei EINSTELL.STD gesichert. 
Schließlich müssen die oben genannten 
Dateien noch auf die Startdiskette oder 
eine zweite Startdiskette im Laufwerk 
B: kopiert werden, damit sie automa¬ 
tisch beim nächsten Start in die RAM- 
Disk eingelesen werden. Für Loco- 
Script-Benutzer mit nur einem Lauf¬ 
werk besteht die Möglichkeit (falls 
nicht schon beim Update geschehen), 
diese Dateien auch auf der Rückseite 
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Bild I : Zeichensatz Sans Serif 
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Bild 3: Zeichensatz Sans Serif Light 
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Bild 4: Zeichensatz Standard Light 


der Startdiskette unterzubringen. Dazu 
muß nur eine (leere) Datei ET. AL auf 
Seite A: erstellt werden. LocoScript 
fordert dann an gegebener Stelle zum 
Diskettenwechsel auf. 

Bei Beachtung gewisser Punkte steht 
damit das gesamte Spektrum der Dar¬ 
stellungsmöglichkeiten und Sonderzei¬ 
chen von LocoScript auch für Ihren 
24-Nadel-Drucker zur Verfügung. 
Diese Punkte wären zum Beispiel: 

- Der Drucker sollte entsprechend 
den Vorgaben des Installationshand¬ 
buchs hardwaremäßig voreingestellt 
sein, damit LocoScript eine unein¬ 
geschränkte Softwarekontrolle aus¬ 
üben kann. 

- Beim Erstellen eines Dokuments 
sollte über den Punkt Formgestal¬ 
tung der entsprechende Drucker so¬ 
wie der Zeichensatz voreingestellt 
werden (Bild 6). Dieser Zeichensatz 
muß dazu im Laufwerk M: vorhan¬ 
den sein. 

Alternativ kann eine Datei SCHA- 
BLON.STD mit diesen Vorgaben (und 
unter diesen Voraussetzungen) erstellt 
werden, die dann alle Informationen 
weitergibt. 

Plus oder Minus 

Das insgesamt sehr positive Bild wird 
allerdings durch ein paar Punkte ge¬ 


trübt, die nicht vorenthalten werden 
sollen. Angesprochen wurde schon die 
Beschränkung auf Besitzer von Loco¬ 
Script 2.xx. 

Dazu kommt, daß der Geschwindig¬ 
keitsvorteil eines 24-Nadel-Druckers 
durch die Softwaresteuerung (ein¬ 
schließlich Zeichensatz) von Loco¬ 
Script stark reduziert wird. Im Klar¬ 
text: Auch wenn der Drucker 500 Zei¬ 
chen pro Sekunde schreiben könnte, 
LocoScript drückt alle auf ein gleich¬ 
förmiges Maß von 25 (als fiktive Zahl) 
Zeichen herunter. Der Drucker wird 
jedenfalls wesentlich langsamer als 
vorgesehen. Darum mein Tip, auch 
den STANDARD PRINTER DRI¬ 
VER, einen externen Druckertreiber 
im Update-Programm, zu berücksich¬ 
tigen, denn diese Druckertreiber sor¬ 
gen nur für die richtige Übertragung 
der Steuersequenzen, ansonsten wird 
der dem Drucker eigene Zeichensatz 
angesprochen. So ergeben sich Ein¬ 
schränkungen in der Zeichendarstel¬ 
lung, aber für einen Korrekturdruck 
vorab hat man eine schnelle Alterna¬ 
tive. 

Zudem sollte beachtet werden, daß 
spezielle Formen der Textdarstellung, 
die der Drucker vielleicht bietet, unter 
LocoScript nicht angesprochen werden 
können (Beispiel: Doppelthoch-, Out¬ 


line- und Schattendruck, Grafikzei¬ 
chensatz etc.). 

Die 24 PIN PRINTER DRIVERS 
DISC stellt ein Muß für jeden Anwen¬ 
der dar, der einen 24-Nadel-Drucker 
besitzt (beziehungsweise sich einen zu¬ 
legen möchte) und nicht auf die vielen 
Vorzüge von LocoScript verzichten 
will. Einmal eingestellt, ergeben sich 
in der Handhabung keine Unterschiede 
zum Gebrauch des internen Druckers, 
nur Druckgeschwindigkeit und -quali- 
tät verbessern sich beträchtlich. Wem 
die mitgelieferten vier LQ-Zeichensät- 
ze nicht ausreichen, der hat die Mög¬ 
lichkeit, jeweils fünf weitere Zeichen¬ 
sätze auf einer LOCOFONT24-Disket- 
te zu erwerben — einmal als Text-Set 
mit den Zeichensätzen ROMAN, DE¬ 
FINITE, CAPITAL, MINI-PS, FI¬ 
NESSE, zum anderen als Display-Set 
mit den Zeichensätzen SCRIPT, 
DECO, OLD ENGLISH, PENMAN, 
COPPER PLATE. Außerdem wird ja 
auch eine neue LOCOCHAR-Version 
mitgeliefert. 


24 PIN PRINTER DRIVERS DISC kostet 91,20 
DM, je Foiudiskette 91,20 DM, beide zusam¬ 
men gibt es fllr 136,80 DM bei Firma Wied¬ 
mann. Korbiniansplatz 2, 8045 Ismaning. 


(Michael Beermann/rs) 
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Mit Käsestück und Peitsche 


Mausprogrammierung (2): 

Das Hilfsprogramm 

Wie im ersten Teil bereits angekündigt, folgen hier nun alle vom Maus¬ 
treiber unterstützten Funktionen als C-Source-Code. Mit dem Wissen aus 
dem ersten Teil steht nun nichts mehr dem gezielten Einbau der Maus in 
eigene Programme entgegen. 


Warum ich C gewählt habe, fragen Sie 
sich. Nun, C ist eine recht einfach zu 
erlernende Sprache (wenn man es nicht 
gerade bei einem alten UNIX-C-Freak 
tut). Es gibt hervorragende (auch preis¬ 
werte) Compiler, und diese Compiler 
erzeugen einen recht gut optimierten, 
schnellen Code. Nun gut, werden die 
sagen, die sich bereits das Listing ange¬ 
schaut haben, aber warum dann jede 
Menge Inline-Assembler? 

Drei Gründe 

Auch hierfür gibt es gute Gründe. Der 
erste: Das Listing ist für QuickC 2.00 
(Microsoft C 5.1) geschrieben (wie es 
auf Turbo C oder Turbo Pascal umge¬ 
setzt wird, folgt später). Dieser Com¬ 
piler verfügt über einen (im Gegensatz 
zu Turbo C auch in der Entwicklung¬ 
sumgebung verfügbaren) Inline-As- 
sembler. 

Der zweite Grund: Geschwindigkeit. 
Da eine mausbediente Oberfläche 
schnell reagieren sollte, muß man die 
zugrundeliegenden Funktionen so 
knapp und schnell wie möglich formu¬ 


lieren. Das schnellste und knappste 
wäre natürlich reiner Assemblercode, 
dann wären aber jede Menge Makros 
oder fünf verschiedene Source-Files 
für jede Funktion nötig, um alle von C 
unterstützten Speichermodelle zu ver¬ 
sorgen. Der springende Punkt, was die 
Geschwindigkeit angeht, ist die C- 
Funktion int???. Diese Funktion wird 
benötigt, um einen Software-Interrupt 
auszulösen (näheres hierzu siehe Hand¬ 
buch). Da diese Funktionen absolut all¬ 
gemein gehalten sind, müssen Sie fol¬ 
gendermaßen Vorgehen. 


1. Jedesmal alle Register sichern, 

2. mit dem übergebenen Register¬ 
satz neu laden, 

3. den gewünschten Interrupt aus- 
lösen, 

4. davon ausgehen, daß sich alles bis 
auf CS:IP geändert hat, 

5. die Register sichern, 

6. die alten Werte wieder laden, 

7. die nach dem Interrupt gesicher¬ 
ten Register wieder zurückgeben. 


Daß das alles nicht gerade zu einem 
Geschwindigkeitsrekord führt, dürfte 
wohl klar sein. Der dritte Grund wurde 
schon kurz angesprochen. Die C-Com- 
piler für PCs unterstützen mehrere 
Speichermodelle. Um diese in Assem¬ 
bler nachzubilden, reicht es leider nicht 
aus (wie zum Beispiel bei MASM 5.1) 
einfach anzugeben .model large, C. 
Die Adressen der über den Stack über¬ 
gebenen Parameter ändern sich ebenso 
wie die Art der Adressierung von glo¬ 
balen Variablen. Erst wenn der Rech¬ 
ner beim einem Testlauf dann bis zum 
nächsten Reset stehenbleibt, weiß man, 
daß man etwas übersehen hat. 

Wenn man den Inline-Assembler be¬ 
nutzt, erledigt dies alles der Compiler; 
aber auch hier gibt es leider einige 
Fallen. 

Die Funktionen 

Kommen wir nun zu den beiden Li- 
stings. MAUS.H ist eine typische C- 
Header-Datei. Hier sind zwei struct- 
Defmitionen, diverse #defines und 
die Deklarationen der einzelnen Funk¬ 
tionen versammelt. Die Deklarationen 
benötigt der Compiler, um auf Fehler 
(falsches Parameterformat oder ähnli¬ 
ches) hinweisen zu können. 

Die #defines sollen das Programmie¬ 
ren und Lesen des Source-Codes er¬ 
leichtern (ist doch klarer, wenn dort 

LEFT_PRESSED steht als einfach 

nur 2, oder?). 

Nun zu den beiden struct-Definitionen. 

Die erste, M_POINT, bestehend aus 

vier unsigned-int-Weiten, wird von 

m_pos, m_getrelease, m_getpress 

benutzt, um alle Informationen über 
den derzeitigen Status der Maus zu¬ 
rückgeben zu können. 

Die ersten beiden Werte, xpos und 
ypos, geben die Position des Mauscur¬ 
sors an, buttonstatus den Status der 
Maustasten und buttoncount (nur bei 
m_getpress, m_getrelease) die An¬ 

zahl der Betätigungen der Taste seit 
dem letzten Aufruf. 

Die zweite Struktur, M_GRAPH¬ 

CURSOR, beschreibt den Hotspot und 
das Aussehen des Grafikcursors vom 
Maustreiber. Näheres hierzu kann im 
ersten Teil nachgelesen werden. 

X_spot und y_spot enthalten die 

Koordinaten des Hotspots vom Cursor, 
screenmask und cursormask die beiden 
jeweils 16 ints großen Masken des Cur¬ 
sors. 

Die Namen der Parameter der Funktio¬ 
nen wurden so gewählt, daß es einfach 
ist, darauf zu schließen, was sie enthal¬ 
ten (hör für horizontal und so weiter). 













Wer Microsofts QuickC 2.00 oder C 
5.1 hat. braucht das Ganze nur abzutip¬ 
pen und zu compilieren. 

Zu den Bibliotheken 

Die entstandene Objektdatei kann dann 
zu den entsprechenden Bibliotheken 
hinzugefügt werden. Dabei ist zu be¬ 
achten, daß die Speichermodclle der 
Bibliothek und der Objektdatei zusam¬ 
menpassen. Wie man mit LIB umgeht, 
ist dem Handbuch zu entnehmen. Um 
eigene Programme aber nicht so aufzu¬ 
blähen (da es nur eine Objektdatei ist. 
wird diese vom Linker komplett dem 
Programm hinzugefügt), empfiehlt 
sich ein etwas anderer Weg (aus Platz¬ 
gründen nicht im Listing). 

Man legt für jede Funktion eine Datei 
an, die dann compiliert wird. Dabei ist 
nur darauf zu achten, daß in jeder Datei 
mit #include <MAUS.H> die 
Maus-Header-Datei eingefügt wird. 
Als zweites muß man noch in jeder Da¬ 
tei, in der sie benötigt werden, die bei¬ 
den Makros FP_SEG und FP—OFF 

definieren (Microsofts Makros sind ein 
bißchen merkwürdig geartet). Danach 
werden die Dateien compiliert und in 
die Bibliotheken eingebunden. Als 
Lohn für dieses Mehr an Arbeit winkt 
eine verringerte Größe der Programm¬ 
dateien, die Mausfunktionen benutzen. 

Andere Compiler 

Wer über Turbo C 2.0 und MASM 
oder TASM verfügt, hat auch keine 
größeren Probleme. Er muß nur die 
_asm ( Zeilen löschen - das schlie¬ 
ßende] nicht vergessen - und vor jede 
Inline-Assembler-Zeile asm schreiben. 
Das Ganze dann mit der Kommando- 
zeilen-Version compiliert (sorry, die 
Entwicklungsumgebung kann’s nicht), 
und schon ist man auch fertig. 
Schwieriger wird die Sache natürlich 
bei Turbo Pascal. Wer es schnell haben 
will und einen Assembler besitzt, sollte 
sich mit dem Handbuch von Turbo Pas¬ 
cal hinsetzen und alles in Assembler 
schreiben (ist einfacher als in C, da 
Turbo Pascal nur ein Speicher-Modell 
kennt). Wer nicht so auf Geschwindig¬ 
keit aus ist, kann das Ganze auch in rei¬ 
nem Pascal (beziehungsweise Turbo 
Pascal) haben. 

Da der Assembler-Teil der Funktionen 
meistens nur aus Ladebefehlen und 
dem Interrupt besteht, ist es das ein¬ 
fachste, mit den Funktionen und Re¬ 
cords aus der Unit DOS zu arbeiten. 
Also einen REGISTERS-Record ent¬ 
sprechend belegen, mit einem intr( 52, 
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name ); den Mausinterrupt auslösen 
und dann die Werte aus dem Record 
holen. Zwar nicht ganz so schnell, aber 
es geht. 

Allgemeines 

Zum Abschluß noch ein paar Hinweise 
allgemeinerer Natur. Ältere Maustrei¬ 
ber unterstützen nicht alle diese Funk¬ 
tionen. Sicher werden von allen Trei¬ 
bern nur die Funktionen bis m_tresh- 

hold (Funktionsnummer 19) unter¬ 
stützt. Alle anderen existieren erst bei 
Treibern ab der Versionsnummer 6.24. 
Die Funktionen, die die Adresse einer 
User-Routine bekommen, die aufgeru¬ 
fen werden soll, wenn das angegebene 
Ereignis eintritt. erwarten, daß diese 
Routine Far-codiert ist, also einen in¬ 
tersegmentären Rücksprung zum auf- 
rufenden Programm durchführt. In C 
erreicht man dies, indem man das 
Schlüsselwort far benutzt (void far rou- 
tine( void )). Der Compiler erzeugt 
dann den richtigen Assemblercode. Bei 
diesen Funktionen muß (!) die Stack¬ 
überprüfung abgeschaltet sein (# prag- 
ma oder Kommandozeile). Diese 
Funktionen können zu jedem beliebi¬ 
gen Zeitpunkt vom Maustreiber aufge¬ 
rufen werden. Die Adresse des Stacks 
stimmt dabei meist nicht mit der über¬ 
ein, die bei der Überprüfung vorausge¬ 
setzt wird. Es ist auch darauf zu achten, 
was man innerhalb einer solchen Funk¬ 
tion macht. Diese Funktionen sind zu 
vergleichen mit einem Interrupt, und 
man sollte die gleichen Vorsichtsmaß¬ 
nahmen berücksichtigen (keine DOS- 
Aufrufe, nicht zu lange in der Funktion 
aufhalten etc.). 

Wichtig ist auch, daß der Maustreiber 
die Parameter für die User-Funktion in 
Registern übergibt (siehe Teil 1). Diese 
Daten müssen, falls man sie benutzen 
will, in lokale Variablen umgespei¬ 
chert werden (via Inline-Assembler). 
Alles andere, genau wie bei den ande¬ 
ren Funktionen auch, können Sie der 
Beschreibung der einzelnen Funktio¬ 
nen des Maustreibers im Teil 1 ent¬ 
nehmen. 

Und nun zeigen Sie Ihrer Maus, wer 
das Herrchen ist. Mit dem Käsestück 
wurde lange genug gelockt, jetzt heißt 
es, die Peitsche hervorzuholen. 


Die beiden angesprochenen Listings 
finden Sie im Listingteil ab Seite 37 
dieser Ausgabe. 


(Robert Haas/jf) 


Floppylaufwerke 


Qualitätslaufwerke von TEAC 


FD 235 F 3.5", 720 KB 169.- 
FD 235HF 3.5", 720/1.44 MB 179.- 
GT 235 5.25" Rahmen 49.- 

FD 55 GFR 5.25", 360/1.2 198.- 


Filecards 


21 MB 40* ms 498.- 

Supertest in DOS 2/90 : 

49 MB 40* ms, SCSI 848.- 

84 MB 24* ms, SCSI 1148.- 


42 MB 19* ms, Quantum 998.- 

105 MB 19* ms,Quantum 1698.- 



Getestet in DOS 2/90 

SyQuest 44 MB, 25* ms 1548.- 

Medium 44 MB 248.- 


Euro PC / Tower 


Anschlußfertige Diskettenlaufwerke 
für Schneider Euro und Tower AT : 
EF-3 3.5", 720 KB 249.- 

EF-5 5.25", 360/720 KB 298.- 
Anschlußfertige Seagate Festplat¬ 
ten für EURO PC : 

EH-40R 42 MB, 70 ms 898.- 
sehr schnelle SCSI - Festplatte : 
EH-50S 49 MB, 40 ms 1098.- 


Coprozessoren 


287-20 20 MHz, IIT 598.- 

387 SX 16 MHz, Intel 648.- 

387 25 MHz, Intel 998.- 

387 33 MHz, Intel 1248.- 


Genoa VGA 


VGA 6400 16 Bit, 512 KB 498. - 


BTX 


Amaris BTX/2 für DBT03 338.- 
dto jedoch für Modem/V24 238.- 

• sind offi/jelle Herstellerangaben 

$83 

Frank Strauß Elektronik 

Schmiedstr.il 6750 Kaiserslautern 
Tel.: 0631/67096-98 Fax : 60697 
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Schaltstation PC 

Device-Treiber unter DOS 

In der mit diesem Artikel startenden Serie soll erklärt werden, was ein 
Device-Driver (oder auf deutsch: ein Gerätetreiber) ist, wie er funktioniert 
und wie man selber einen solchen programmiert. Als Voraussetzung für 
dieses Unterfangen reichen ein Editor, ein Assembler und möglichst ein 
Resetschalter am Rechner vollkommen aus (letzteres der meist endgültigen 
Abstürze wegen, die bei der Entwicklung eines Treibers selten ausbleiben). 


Der benutzte Editor sollte reinen 
ASCII-Text abspeichern können. 
Empfohlene Assembler sind der 
MASM ab 4.0 oder der Turbo Assem¬ 
bler ab 1.0. Leider muß Assembler 
sein, da sich Gerätetreiber nicht in 
Hochsprachen schreiben lassen. 

Graue Theorie 

Bevor Sie jetzt zu Ihrem Rechner stür¬ 
zen, um mit dem Programmieren los¬ 
zulegen, erstmal wieder beruhigen, 
dann hinsetzen und tief durchatmen. 
Denn bevor es irgend etwas zum Pro¬ 
grammieren gibt, vergehen noch zwei 
Folgen dieser Serie. Leider sind Gerä¬ 
tetreiber sehr komplexe Programme, 
die, ohne ein tieferes Verständnis der 
Zusammenhänge zwischen DOS und 
der Hardware Ihres Rechners, mehr 
Unheil anrichten, als Ihnen wahr¬ 
scheinlich lieb ist. Oder mögen Sie 
Festplatten, die plötzlich nicht mehr 
ansprechbar sind? Beschäftigen wir 
uns also erst einmal mit der grauen 
Theorie, ohne die leider nur schwerlich 
auszukommen ist. Etwa im Jahre 1980 


trug sich IBM mit dem Gedanken, ei¬ 
nen neuen Typ von Personalcomputer 
zu entwickeln. 

Historie 

Zu der damaligen Zeit beherrschte 
CP/M, vielen von Ihnen sicherlich 
vom CPC und PCW bekannt, die Mi¬ 
krocomputer-Szene. Alle Rechner, die 
etwas auf sich hielten, hatten CP/M als 
Betriebssystem. Der Nachteil von 
CP/M war die Festlegung auf den 
8080-(Intel)- beziehungsweise Z80- 
(Zilog)-Prozessor. Diese Prozessoren 
hatten nur einen begrenzten Speicher¬ 
raum von 64 kByte. 

Einige Jahre zuvor hatte Intel jedoch 
den 8086, einen vollwertigen 16-Bit- 
Prozessor mit einem MByte Adreß- 
raum entwickelt. IBM plante nun, ei¬ 
nen 16-Bit-Rechner auf den Markt zu 
bringen (na ja, fast 16 Bit, da sie den 
8088 verwenden wollten, der bis auf 
einen auf 8 Bit verkrüppelten Datenbus 
identisch mit dem 8086 war, um an der 
Peripherie sparen zu können). Da Digi¬ 
tal Research, die Entwickler von 


CP/M, etwa zeitgleich angekündigt 
hatten, ein Betriebssystem für den 
8086 herauszubringen (CP/M 86), 
nahm alle Welt an, dieses CP/M 86 
wäre das neue Betriebssystem für den 
IBM-PC. 

Wie man weiß, kam es jedoch anders. 
Die Sage erzählt, daß Gary Kildall, sei¬ 
nes Zeichens Boß von Digital Re¬ 
search, statt die Emissäre von IBM zu 
empfangen, lieber mit seinem Sport¬ 
flugzeug Platzrunden geflogen sei. Die 
IBM-Leute, darüber ziemlich sauer, 
suchten sich einen anderen Lieferanten 
für ihr Betriebssystem. Sie gingen zu 
Microsoft, bis dato eher bekannt für 
Programmiersprachen, und wurden 
mit offenen Armen empfangen. 
Microsoft hatte jedoch auch kein Be¬ 
triebssystem in der Schreibtischschub¬ 
lade liegen. So ging man auf die Suche 
nach jemandem, der ein solches pro¬ 
grammieren konnte (für einen Rech¬ 
ner, den noch niemand zu Gesicht be¬ 
kommen hatte). Man wurde fündig in 
der Person von Jim Paterson, der, des 
Wartens auf CP/M 86 überdrüssig, da¬ 
mit begonnen hatte, auf eigene Faust 
ein Betriebssystem zu entwickeln. Wie 
man weiß, wurde daraus MS- bezie¬ 
hungsweise PC-DOS, und der Rest ist 
Geschichte. 

MS-DOS 1.0 

Was war nun diese MS-DOS 1.0? Da 
es darauf ankam, möglichst schnell 
Software für den neuen Rechner zu be¬ 
kommen, wurde das neue Betriebssy¬ 
stem sehr stark an CP/M angelehnt. 
Uns interessiert hier aber nur ein neues 
Konzept, das eingeführt wurde. Um 
eine gewisse Hardware-Unabhängig¬ 
keit zu erreichen, konnte man Ein- und 
Ausgabegeräte wie Dateien behandeln. 
Bei dieser ersten DOS-Version waren 
die Geräte Tastatur und Bildschirm 
(CON), Drucker (PRN) und serielle 
Schnittstelle (AUX). Wurde bei einem 
DOS-Befehl zur Dateimanipulation ei¬ 
ner dieser Namen verwendet, so wurde 
das physikalische Gerät und nicht eine 
Datei auf Diskette angesprochen. Die 
einfache Umleitung von Ein- oder Aus¬ 
gaben von Daten eines Programms war 
geboren. 

Zur Ansteuerung dieser 'Geräte' dien¬ 
ten natürlich Gerätetreiber, die aber 
damals noch den Nachteil hatten, fe¬ 
ster, nicht veränderbarer Bestandteil 
des DOS-Codes zu sein. 

DOS, die zweite 

Ab der Version 2.0 von MS-DOS be¬ 
gann sich einiges zu ändern. IBM hatte 
einen neuen PC namen PC-XT ange- 
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kündigt. Unterschied zum normalen 
PC sollte sein, daß dieser XT nicht nur 
über Diskettenlaufwerke, sondern 
auch über eine Festplatte mit der gigan¬ 
tische^!) Kapazität von 10 MByte ver¬ 
fügte. 

Vorteil war natürlich, daß jetzt Hun¬ 
derte von Dateien zugleich im direkten 
Zugriffsbereich verfügbar waren. 
Nachteil war das Chaos, das diese Da¬ 
teien im Directory anrichten würden. 
Um es kurz zu sagen: Microsoft ent¬ 
schloß sich, Anleihen bei einem Be¬ 
triebssystem für Mini-Computer na¬ 
mens UNIX zu machen und Unterdi- 
rectorys einzuführen. Neben anderen 
Änderungen, die die gesamte Benut¬ 
zung von Dateien anging, änderte sich 
aber auch einiges bei den Gerätetrei¬ 
bern. 

Während es bei DOS 1.0 noch keine 
Möglichkeit gab, neue Gerätetreiber zu 
installieren, wurde es jetzt möglich, 
Gerätetreiber auch für die exotischste 
Peripherie in DOS einzubinden und so 
ihre Ansteuerung durch DOS zu er¬ 
möglichen. Mitgeliefert wurde damals 
nur der ANSI.SYS-Treiber, der eine 
erweiterte Steuerung der Bildschirm¬ 
ausgaben ermöglichte. Dieser Treiber 
ersetzt den standardmäßigen CON- 
Treiber. 

DOS 3.0 und später 

In den DOS-Versionen ab 3.0 hat sich 
in bezug auf Gerätetreiber wenig geän¬ 
dert. Die einzige wahre Änderung trat 
mit DOS 4.0 ein. Da diese Versionen 
Festplatten mit mehr als 32 MByte ver¬ 
walten, wurde die Anzahl der mögli¬ 
chen Sektoren für Festplatten erhöht. 
Früher mußten solche Platten über spe¬ 
zielle vom Hersteller gelieferte Geräte¬ 
treiber eingebunden werden. Um dem 
DOS mitzuteilen, daß ein Gerätetreiber 
mit 32-Bit-Sektornummern umgehen 
kann, muß ein Bit im Statuswort des 
Treibers gesetzt sein. Dies bedeutet je¬ 
doch nicht, daß alte Treiber nicht funk¬ 
tionieren, sie werden vom DOS aber 
als unfähig angesehen, mit solchen 
Platten umzugehen (betrifft also nur 
Treiber zur Festplattenverwaltung, 
und die sollte man sowieso nur schrei¬ 
ben, wenn es wirklich keine andere 
Möglichkeit mehr gibt). 

Die zweite Änderung bei Gerätetrei¬ 
bern betrifft die Anzahl der nun mit 
DOS mitgelieferten Treiber. Diese An¬ 
zahl erhöhte sich ab DOS 3.2 ständig. 
Bei DOS 4.01 bekommt man inzwi¬ 
schen sieben Gerätetreiber mitgeliefert 
(Anschluß von unüblichen Disketten¬ 
laufwerken und Festplatten, Drucker, 


leider nur IBM-Drucker, und so 
weiter). 

Das DOS setzt sich aus mehreren Kom¬ 
ponenten zusammen. Jede Komponen¬ 
te hat eine fest umrissene Aufgabe, aus 
denen sich das Gesamtsystem zusam¬ 
mensetzt. Die drei wichtigsten Kompo¬ 
nenten sind das DOS-BIOS, das die 
grundlegenden Funktionen von DOS 
bereitstellt, der DOS-Kern, der die 
High-Level-Funktionen des DOS dar¬ 
stellt, an die man über den Interrupt 
21H herankommt, und der Komman¬ 
doprozessor COMMAND.COM, der 
die Benutzeroberlläche bildet. 

Im DOS-BIOS sind auch die grundle¬ 
genden Gerätetreiber versammelt. Da 
wären: 


NUL: Das Gerät, in das man jede Menge Daten 
schicken kann, ohne sie jemals wiederzusehen (digita¬ 
les Nirwana). 

CON: Tastatur und Bildschirm. 

PRN: Drucker. 

A UX: Serielle Schnittstelle. 

CLOCK: Die Software-Uhr des PCs. 

A: ,B:, ...: Die diversen Treiber für die Disketten-und 
Festplattenlaufwerke. 


Wenn DOS mit einem dieser Geräte 
kommunizieren will, geschieht dies 
immer über einen der oben genannten 
Gerätetreiber, die damit die Verbin¬ 
dung zur Hardware des PCs herstellen. 
Diese Gerätetreiber lassen sich nicht 
mit den installierbaren vergleichen. Sie 
sind fest im DOS-Code enthalten, und 
man kann sie nicht verändern; jedoch 
lassen sich alle durch einen selbst ange¬ 
fertigten Treiber ersetzen. 

Die Installation neuer Gerätetreiber ge¬ 
schieht während der Boot-Phase des 
Rechners. Wenn sich das DOS-BIOS 
und der DOS-Kern im Rechner einge¬ 
richtet haben, wird die CON¬ 
FIG. SYS-Datei gelesen und ausge¬ 
führt. Neben anderen Befehlen (BUF¬ 
FERS, FILES, etc.) können sich hier 
auch DEVICE =-Befehle befinden. 
Die in diesen Befehlen angegebenen 
Dateien werden dann geladen und ihre 
Installierungsroutine ausgeführt. 
Wenn alles programmgemäß verlaufen 
ist, hat sich dadurch ein neuer Geräte¬ 
treiber ins DOS eingebunden. 

Zwei Arten von Gerätetreibern 

Soviel also zur Geschichte und Aufbau 
von DOS sowie zum Laden eines Gerä¬ 
tetreibers; genaueres über Installati¬ 
onsphase und Einbindung von Geräte¬ 
treibern später. 

Fangen wir erst einmal mit den ver¬ 
schiedenen Arten von Treibern an. Es 
gibt deren zwei: die Zeichen- und die 
Blocktreiber. Erstere führen die Kom¬ 


munikation mit der Hardware Byte für 
Byte durch. Sie sind für Geräte wie Ta¬ 
statur, Bildschirm, Drucker oder Mo¬ 
dem zuständig, die ihre Aufgabe auch 
immer Zeichen für Zeichen erledigen. 
Jeder Zeichen-Gerätetreiber kann je¬ 
doch nur ein Gerät bedienen, wodurch 
jeweils ein eigener Treiber für jedes 
Gerät existieren muß (Ausnahme: Ta¬ 
statur oder Bildschirm, die man aber 
auch als Input/Output-Gerät verstehen 
kann). 

Blocktreiber hingegen können mehrere 
Geräte auf einmal verwalten, haben 
aber keinen vom Programmierer fest¬ 
gelegten Namen wie CON. sondern be¬ 
kommen ihren vom DOS zugeteilt (E:, 
F:...). Aus diesem Grund können 
Blocktreiber auch nicht die internen 
Treiber, zum Beispiel für die Disket¬ 
tenlaufwerke, ersetzen, sondern spre¬ 
chen ein physikalisches Laufwerk un¬ 
ter einem anderen Namen als der origi¬ 
nale DOS-Treiber an. 

Gekocht... 

Doch zurück zu den Zeichentreibern. 
Es gibt zwei Modi, in denen Zeichen¬ 
treiber operieren können. Sie nennen 
sich Raw und Cooked (was roh und ge¬ 
kocht bedeutet). Wenn im Cooked-Mo- 
dus DOS Zeichen von einem Zeichen¬ 
treiber empfängt, speichert es diese 
erst in einem internen Puffer, um sie 
auf Zeichen wie Ctrl-P, Ctrl-C, Ctrl-S 
und Return zu untersuchen. Trifft es 
zum Beispiel auf ein Return, so fordert 
es keine weiteren Zeichen vom Geräte¬ 
treiber mehr an, auch wenn das An¬ 
wenderprogramm mehr Zeichen ange¬ 
fordert hat. 

Bei Ctrl-P wird die Ausgabe auf den 
Bildschirm umgeleitet, Ctrl-S hält das 
Programm an, und Ctrl-C bricht es ab. 
Im Cooked-Modus werden die Zei¬ 
chen, die der Zeichentreiber liefert, 
also erst vom DOS 'vorgekochf, bevor 
sie zum Anwendungsprogramm, das 
sie angefordert hat, geschickt werden. 

...und roh 

Im Gegensatz dazu steht der Raw-Mo- 
dus. Fordert ein Programm vom DOS 
in diesem Modus sechs Zeichen an, 
werden auch genau sechs Zeichen gele¬ 
sen, ob dabei ein Return übermittelt 
wurde oder nicht. DOS kopiert hierbei 
die Zeichen auch direkt in den Puffer 
des Programms ohne den Umweg über 
einen eigenen Puffer. Auch bei Zeichen¬ 
ausgaben wird im Raw-Modus nicht 
mehr auf Ctrl-C oder ähnliches gete¬ 
stet. Ctrl-Break ist ein anderer Fall, da 


6/7’90 PC 107 
















I~PC-Programm 


die zur Feststellung dieser Tastenkom¬ 
bination zuständigen Routinen sich im 
Tastaturtreiber befinden (KEYB.COM). 
Den Modus eines Zeichentreibers kann 
man über Funktion 44H des Interrupts 
einstellen - die IOCTL-Funktionen, 
auf die wir am Schluß der Serie noch 
näher eingehen werden. 

Blocktreiber 

Die zweite Art von Gerätetreibern sind 
die Blocktreiber. Sie übertragen ihre 
Daten immer blockweise. Sie sind für 
alle Arten von Diskettenlaufwerken, 
Festplatten, Streamern, CD-ROMs, 
kurz gesagt Massenspeichern, zustän¬ 
dig. Die Blockgröße kann hierbei na¬ 
türlich, je nach Art des Speichermedi¬ 
ums, variieren. In bestimmten Fällen 
lassen sich auch mehrere Blöcke auf 
einmal transferieren. Wie bereits er¬ 
wähnt, hat ein Blocktreiber keinen fe¬ 
sten Namen. Sein Name wird ihm vom 
DOS vorgegeben und hängt von seiner 
Lage innerhalb der Kette der Blocktrei¬ 
ber ab. Unterstützt der Blocktreiber 
mehrere logische Geräte, erhalten die¬ 
se aufeinanderfolgende Namen (E:, F:, 
G: ...). Einen Raw- oder Cooked-Mo- 
dus gibt es bei den Blocktreibern nicht. 
Sie übertragen immer genau so viele 
Blöcke, wie ihnen aufgetragen wurde 
(solange kein Fehler auftritt), und be¬ 
arbeiten ihre Daten auch in keinster 
Weise. 

Für den Zugriff auf Gerätetreiber gibt 
es mehrere Methoden. Auf Zeichen¬ 
treiber greift man zu, indem man bei 
Datei-Funktionen ihren Namen statt 
den einer Datei angibt. Auch mit den 
Funktionen 01H bis OCH des Interrupt 
021H hat man Zugriff auf die Geräte¬ 
treiber zur Zeichenein- und -ausgabe, 
da DOS diese Treiber standardmäßig 
ab der Version 2.0 bei diesen Funktio¬ 
nen benutzt. Auch auf Blocktreiber 
greift man über die Dateifunktionen 
zu. Anstelle der alten Gerätebezeich¬ 
nung (die man aber auch noch benutzen 
kann) gibt man die neue an, die der 
Blocktreiber in seiner Installationsmel¬ 
dung angegeben hat. 

Es existiert auch die Möglichkeit, über 
die IOCTL-Funktionen des DOS auf 
die Gerätetreiber zuzugreifen, doch 
dazu später mehr. 

Funktioneller Aufbau eines 
Gerätetreibers 

Kommen wir zum Aufbau eines Gerä¬ 
tetreibers. Obgleich es bei den beiden 
Arten der Gerätetreiber einiges an Un¬ 
terschieden gibt, ist ihr Aufbau der 
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gleiche. Jeder Treiber besteht aus drei 
Teilen: 


/. Treiber-Kopf 

2. Interrupt-Routine 

3. Strategie-Routine 


Ein Gerätetreiber muß immer ab der 
Position 0 beginnen (wird durch ein 
ORG 0 im Assembler-Sourcecode er¬ 
reicht). Hier befindet sich stets der 
Treiberkopf. Danach folgen dann die 
Daten, die der Treiber benötigt (oder 
auch nicht), und die Interrupt- sowie 
die Strategie-Routine. 

Diese beiden Routinen sind die Ein¬ 
trittspunkte für die Aufträge, die DOS 
dem Treiber erteilt (ihre Offset-Adres¬ 
sen müssen im Treiber-Kopf abgelegt 
sein). 

Die Kommunikation läuft folgender¬ 
maßen ab: als erstes ruft DOS die Stra¬ 
tegie-Routine des Treibers auf. Einzige 
Aufgabe dieser Routine ist es, die 
Adresse eines Datenblocks, die ihr in 
ES:BX übergeben wird, abzuspei¬ 
chern, um danach sofort wieder zum 
aufrufenden DOS zurückzukehren. 
Anschließend ist die Interrupt-Routine 
an der Reihe, die die gespeicherte 
Adresse benutzt, um über sie auf den 
Datenblock zugreifen zu können. Die¬ 
ser enthält unter anderem auch die 
Nummer der Funktion, die ausgeführt 
werden soll, so daß die Interrupt-Rou¬ 
tine weiß, was von ihr erwartet wird. 
Grund für diese Teilung ist wahr¬ 
scheinlich der Gedanke an eine spätere, 
multitaskingfähige DOS-Version ge¬ 
wesen. Wichtig ist, sich zu merken, 
daß die Strategie-Routine nur die Auf¬ 
gabe hat, den Zeiger auf dem Daten¬ 
block zu sichern. Alles andere erledigt 
die Interrupt-Routine, sobald sie vom 
DOS aufgerufen wird. 

Der Kopf eines Gerätetreibers besteht 
aus fünf Worten ( ä 16 Bit) und einem 
8-Byte-Feld. Der Kopf hat folgenden 
Aufbau (WORD steht für I6-Bit-, 
BYTE für 8-Bit-Werte): 


(WORD) Offset-Adresse des nächsten Treibers 
(WORD) Segmenradresse des nächsten Treibers 
(WORD) Geräte-Attribut 
(WORD) Offset-Adresse der Strategie-Routine 
(WORD) Offset-Adresse der Interrupt-Routine 
(8 BYTE) Name des Treibers (Zeichen) oder Anzahl der 
verwalteten Geräte (Block) 


Gehen wir diesen Treiber-Kopf einmal 
Schritt für Schritt durch. Die ersten 
beiden Worte zeigen auf die Adresse 
des nächsten Treibers in der Kette. 
Gibt es diesen nicht, so steht hier je¬ 
weils der Wert -1. Der Wert ist auch 
bei der Programmierung des Treibers 
in der Source einzusetzen. Der Grund 


für diese Adresse liegt in der Art, wie 
DOS bei der Suche nach einem Treiber 
vorgeht. DOS beginnt die Suche nach 
einem Gerätetreiber beim NUL-Trei- 
ber, der immer den ersten aller Geräte¬ 
treiber darstellt. DOS vergleicht so 
lange den Namen des Treibers mit dem 
gesuchten Namen, bis entweder der 
richtige Treiber gefunden wurde oder 
der Wert von -1 im Adreßleld erreicht 
wird. Dann nimmt DOS an, daß eine 
Diskettendatei gemeint ist. Da ein neu¬ 
er Treiber immer direkt nach dem 
NUL-Treiber eingesetzt wird (von der 
Adreßzeigerkette her), ist es so mög¬ 
lich, bereits existierende Treiber durch 
neue zu ersetzen, da die Suche vom 
DOS nach einem Treiber aufhört, so¬ 
bald der Name zum ersten Mal gefun¬ 
den wurde. 

Der nächste Wert (wieder ein Wort) ist 
das Geräte-Attribut. Dieses Attribut 
dient der Beschreibung des Treibers 
und teilt DOS unter anderem mit, ob es 
sich um einen Zeichen- oder Blocktrei¬ 
ber handelt. 

Das Attribut-Wort ist bitweise aufge¬ 
baut und sieht folgendermaßen aus: 


Bit Bedeutung 

0 Standard-Ausgabe (Zeichentreiber) 

1 Standard-Eingabe (Zeichentreiber) 

Ab DOS 4.0 bedeutet dieses Bit. falls gesetzt, bei 
Blocktreibern, daß der Treiber mit 32-Bit-Sektor- 
nummern umgehen kann. (Blocktreiber) 

2 Uhr (Zeichentreiber) 

3 NVL-Gerät (Zeichentreiber) 

4 Nicht benutzt 

5 Nicht benutzt 

6 Nicht benutzt 

7 Nicht benutzt 

8 Nicht benutzt 

9 Nicht benutzt 

10 Nicht benutzt 

11 Mediumwechsel wird erkannt (Blocktreiber) 

12 Nicht benutzt 

13 Ausgabe bis beschäftigt (Zeichentreiber) 

14 Kein IBM-Format (Blocktreiber) 
/OCIL-Funktionen werden unterstützt. 

15 0: Blocktreiber 
I: Zeichentreiber 


Die beiden darauf folgenden Worte 
enthalten die Offset-Adressen der 
Strategie- und Interrupt-Routinen, die 
DOS benötigt, um sie aufzurufen. Zuni 
Abschluß kommt noch ein 8 Byte gro¬ 
ßes Feld. Es enthält bei Zeichentrei¬ 
bern den Namen und muß, falls der 
Name kürzer als acht Buchstaben ist, 
mit Leerzeichen (ASCII 32) aufgefüllt 
werden. 

Bei Blocktreibern steht im ersten Byte 
dieses Feldes die Anzahl der unter¬ 
stützten logischen Geräte. Die restli¬ 
chen sieben Bytes werden dann mit 
Null-Bytes aufgefüllt. 

Das wäre es für dieses Mal gewesen. 
Im nächsten Teil geht es um die Funk¬ 
tionen, die ein Gerätetreiber hat. 

(Robert Haas/jf) 
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BieteSoftware B Biete Hardware B Verschiedenes 


CPC464/664/6128: LOHNSTEUER¬ 
JAHRESAUSGLEICH. BIETE Schema 
des BFM zur Selbstberechn, der 
LST/EST als MULTIPLAN-Tabellen 
an. Tel: (0491)71101 & 88-2412 


■CPC-PD SPIELE + ANWENDERPRG.i 
LISTE 100 PF bei: Peter Breuker, 
Rektenstraße 10, 4930 Detmold 1 


DOPPELSTERNE auf PC-EBENE 
Informationen unter 07627/2546 


CPC-Schneider INTERNATIONAL 
Heft 3/85 - 11/87, kompl. Preis VHS 
Tel.: 061 72/303295 ab 19 Uhr 


CPC-SPIELE (DISK.) ab 12, - DM 
nur bei EDV-CLOOTS G 


CPC 464: VERKAUFE CA.100 ORIGI¬ 
NALSPIELE AUF CASS. LISTE GEGEN 
1 DM BEI: WALTER DRUM, RIESEN- 
STR. 34,6604 BREBACH, AUCH PD SOFT 


Wirtschaftliche Programme 
für die Arztpraxis auf 
dem Schneider CPC, Joyce, PC 
Fa. EFFEKTA, Am Wiggert 9c, 

4500 Osnabrück, 0541/442416 G 


** Dias ordnen mit dem Computer ** 
CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 

Birnenweg 6, 7060 Schorndorf 
Tel. 071 81/42846 G 


ACHTUNG!! ERWACHSENE 

12 Disk, 5 1/4" oder 3 1/2" mit delikaten 
Programmen f. IBM PC/Kompatible 
Nur DM 40, - VS/Bar. M. Karbach, 
Remscheider Str. 18, 5650 Solingen G 


ENDLICH! PD-SOFTWARE AB DM 1,- 

Für IBM/Kompat. Kat.-Disk. gratis. 

M. Karbach, Remscheider Str. 18, 

5650 Solingen 1 G 


Pro Design 2.0 + Pro Booster 
+ alle Erweiterungsdisketten 
DM 99,-, Tel. 05021/5596 


Wg. Systemwechs.: DTP-Programm 
STOP-PRESS + AMX-Mouse + Adapter 
für PCW, DM 250. Vgl. PC Intern. 

7/88. Tel. 0551/7905972, Orgis 


■ CPC & JOYCE PUBLIC DOMAIN ■ 

• Ein Info ist für 2x100 Pf erhältlich • 

■ PDI, Pf 11 18, D-6464LinsengerichtG 


JOYCE-Software: SMALL-C, DRDRAW, 
dBASE II + CPC Schneider INT. 

3/86 - 1/89 alles einzeln + 
supergünstig! TEL. 0211/49 36 05 


Preisgünstige Spiel- u. Anwen¬ 
dungsprogramme für JOYCE schon 
ab DM 20, - inkl. Disk. Kosten¬ 
lose Infos von Hubert Zahner, 
Wegaweg 6, 7000 Stuttgart 80 


CPC464-GRÜN + Drucker NLQ401 
+ Zubehör. Literatur und div. 
Programme für DM 650, - 
Tel.: 061 72/3032 95 ab 19 Uhr 


Gebrauchtcomputer mit Garantie 
SCHNEIDER - AMSTRAD - PEACOCK 
CPCs * JOYCE * PC * XT * AT * 
HARDWARE **#***.*»,#»,,„ 

SOFTWARE * ab sofort noch * 

BÜCHER * günstiger * 

ZEITSCHRIFTEN **************** 
Ersatzteile & Reparaturdienst. 

Alles zu echten Superpreisen. 
Ständiger Ankauf, 

Höchstpreise für Ihren "ALTEN" 
bei Computer - NEUKAUF III! 

Sofort unseren KATALOG anford. 
Schutzgebühr 3, - DM in Marken 
oder einfach anrufen! 

EDV-Cloots 

5132 Übach-Palenberg 5 

Zeisstr. 7, Tel.: 0 24 51/4 66 08 G 


CPC 6128, Farbm. + Prog. + Zubeh. 
Preis VB, Tel. 0931/84685 


CPC Hardware, Floppy, XT 
& AT Computer, Drucker, 

Ankauf, Reparaturen, 02303/13345 
Manfred Kobusch, 

Bergenkamp 8, 4750 Unna G 


Schneider CPC 6128, GT 65, DMP 
2000, Data Recorder CR 100, Textver., 
10 Disk., Box, Quickjoy II + V MP 2. 
VK vb 900. Tel. 021 66/861 06 


CPC-3"-ZWEITLW. + 10 DISK. + 15 
KASS. 210 DM. 05221/71511,18 Uhr 


CPC 6128 Color: 700 DM VB 
Tel.: 071 61/68211 (mittags) 


Gegen Höchstgebot: CPC-6128 
mit 2. Laufwerk, Monitor GP65, 
Printer NLQ401, Wordstar 3.0; 
Angebot an Dieter Sommer, Flieder- 
str. 9,8011 Vaterstetten 


Suche Hardware 


Aufsteiger kaufen ihren "Neuen" 
nur bei EDV-CLOOTS G 


SUCHE DRUCKER DMP 2000 FÜR 
CPC 464. Angeb. an. SG., POSTFACH 
1332, 6482 BAD ORB 


Hackit- od. Multiface-Il-Modul mit 
6128-Adapter, 07465/458 (Leo) 


ANKAUF UND VERMITTLUNG VON PC 
SENDEN SIE UNS EINE BESCHREI¬ 
BUNG IHRES COMPUTERS UND IHRE 
PREISVORSTELLUNG - GEGEN EINE 
GEBÜHR VON 10 DM FÜHREN WIR 
SIE IN UNSERER DATENBANK. 

FRANK PEREZ COMPUTER, 
POSTFACH, 4053 JÜCHEN 


upLink bringt Daten u. Progr. 
vom CPC u. JOYCE (m. CPS 8256) 
direkt zum PC/XT/AT. Transfer 
über die parallelen Schnitt¬ 
stellen. Komplett 198 DM - NN. 
Info. I Bestellung: CONCEPTION 
GmbH, Hubertusweg 14, 2000 
Hamburg 61, Telefon: 040/584503, 
Telefax: 040/587352 G 


PC-SPIELE, EDV-ZUBEHÖR, PUBLIC 
DOMAIN, GRATISKAT. BEI PDV 
QUELLENWEG 37, 7340 GEISLINGEN G 


Disketten-, Datenkonvertierung 
JOYCE, CPC auf MS-DOS, ATARI 

Bernd Drost, Schulstr. 67, 

6382 Friedrichsdorf, Tel. 061 75/604 G 


Stellenmarkt 


Verdienen Sie genug? Probieren 
Sie es mit uns. Neben-/Hauptberuf. 

Wg. Ausbildung möglichst 

Raum Berlin. 030/6941774 G 


Clubs 


CPC-USER-CLUB - der Club für CPC- 
User in In- & Ausland. Info gegen 
2 DM Rückp./Briefm.: USER-CLUB 
Colonia, Vogelsang 17, 5000 Köln 50 


Bei Problemen rund um den CPC 
hilft der USER-CLUB COLONIA! 
2monatl. Clubdisk., Infos, 
Programme und verbilligter 
Software-Einkauf! Infos bei: 
User-Club Colonia, Im Vogel¬ 
sang 17, 5000 Köln 50. Bitte 
2 DM in Briefm. beilegenl 
Grüße auch an den UNICORN! 
Auch an Kontakten ins Ausland 
sowie zu anderen Clubs sind 
wir interessiert! 


USER-CLUB für JOYCE-Anwender! 
Info gegen Rückporto von: 
JOYCE-USER-CLUB c/o Je. Berghof, 
Roseggerstr. 5, 5600 Wuppertal 2 


Der MCC ist der exklusive 
AMSTRAD-PC-User-Club! Viel PD- 
Soft. (auch EGA'VGA), Sammel¬ 
bestellungen u.v.m.l Jahresbei¬ 
trag nur 10 DM! Interessiert? 

Infos bei: Ralf Jodl, Hessen- 
str. 15, 8912 Kaufering. Rück¬ 
porto bitte nicht vergessen! 


PC-1512/1640-Anwender! 

Werden auch Sie Mitglied in 
unserem USER-CLUB. Info gg. Rück¬ 
porto von R. Knorre, Postfach 
G 20 01 02, 5600 Wuppertal 2 


Das ist 
Ihre 

Chance... 

Schon eine Klein¬ 
anzeige bringt oft¬ 
mals großen Erfolg 
und hilft, neue 
Kontakte zu 
knüpfen. 

Nutzen Sie unser 
Angebot, und pro¬ 
fitieren Sie von der 
Tatsache, daß un¬ 
sere Zeitschrift 

»PC Amstrad« 

jeden Monat von 
zigtausend Com¬ 
puter-Interessier¬ 
ten gelesen wird. 

Möchten Sie etwas 
verkaufen, tau¬ 
schen, oder suchen 
Sie das »Tüpfelchen 
auf dem i« - dann 
sollten Sie eine 
Karte ausfüllen und 
an unseren Verlag 
absenden. 

Ihre Annonce er¬ 
scheint dann in der 
nächsterreichbaren 
Ausgabe. 

Wir möchten aus¬ 
drücklich darauf 
hinweisen, daß wir 
keine Anzeigen 
veröffentlichen, 
aus denen ersicht¬ 
lich ist, daß es sich 
hierbei um Ver¬ 
äußerungen von 
Raubkopien han¬ 
delt. 

Des weiteren ma¬ 
chen wir darauf 
aufmerksam, daß 
indizierte Compu¬ 
terspiele nicht in 
Form von Anzeigen 
beworben werden 
dürfen. 
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MS-DOS, die ersten 
Berührungen (6. Teil) 

Außenseiter des Betriebs¬ 
systems 


Nachdem wir in der letzten Folge die internen MS-DOS- 
Koinmandos näher beschrieben haben, wollen wir uns 
in diesem Monat mit den Befehlen beschäftigen, die das 
Betriebssystem als Programme auf Datenträger aus¬ 
gelagert hat, die sogenannten externen Befehle. 





Die Schwemme an externen Befehlen 
können wir nicht in einer lückenlosen 
Zusammenstellung betrachten, da das 
sowohl Leser als auch Heftumfang arg 
strapazieren würde. Die Befehle sind 


außerdem so vielfältig, daß andere be¬ 
reits Bücher darüber verfaßt haben. 
Bleiben wir bei der Form “kurz, dafür 
auf einen Blick einsehbar“ und fangen 
gleich mit der Beschreibung an. Sollten 


einige Befehle im folgenden gänzlich 
vernachlässigt sein, so verweisen wir 
aul die nächste Folge, die dann von 
dem Grade der Trockenheit weniger an 
das Terrain der Sahara heranreicht. 


chainsj und "Querverweise ' (’cross-linked chvuers ’). Im 
ersten Fall sind einige bereiche des Datenträgers zwar 
als belegt markiert, jedoch keiner Darei zugeordnet, im 
zweiten Fall beanspruchen zwei Dateien einen Bereich 
auf dem Datenträger. Bei aktivierter Option /F werden 
verlorene Cluster in Dateien umgewandelt und als 
FILExxxx. CHK im Hauptverzeichnis abgelegt, iw sie 
(nach Inspektion) gelöscht werden können, da sie meist 
keine sinnvollen Daten mehr enthalten. Beim Auftreten 
von Querverweisen werden die Namen der betroffenen 
Dateien angezeigr. Diese sollten zunächst in ein anderes 
Verzeichnis kopiert und anschließend gelöscht werden. 
Die Kopien werden danach untersucht, welche der bei¬ 
den Dateien noch intakt ist. 


COMMAND 

Startet eine neue Kopie des Komman¬ 
doprozessors. Mit der Option ’/E 
nimm kann eine neue Größe für das 
Environment festgelegt und mit VC 
befehl’ ein weiterer Befehl zur Aus¬ 
führung übergeben werden. 

Aufruf: 

COKKAND [/Ennnn] [/C befehl] 


COMP 

Mit COMP können Dateien oder Da¬ 
teigruppen miteinander verglichen 
und die Unterschiede angezeigt wer¬ 
den. Beim Vergleich von Einzeldatei¬ 
en können die Dateinamen unter¬ 
schiedlich sein, beim Vergleich von 
Gruppen werden jeweils gleichnami¬ 
ge Dateien auf verschiedenen Lauf¬ 
werken miteinander verglichen. 
Aufruf: 

COMP dateil datei2 


DEBUG 

Das Programm DEBUG ist ein Hilfs- 


APPEND 

APPEND ist das Gegenstück zu 
PATH und definiert einen Suchweg 
für Datendateien. Die Pfade werden, 
durch Semikolon getrennt, als Para¬ 
meter übergeben. Ein Aufruf ohne 
Parameter zeigt die aktuelle Einstel¬ 
lung an, ein einzelnes Semikolon 
löscht sie. 

Aufruf: 

APPEND [pfadl]... [;pfadn] 

Anmerkungen: APPEND wird heim ersten Aufruf resi¬ 
dent in den Speicher geladen. Wenn gleichnamige Datei¬ 
en in den definierten Pfaden vorhanden sind, wird die er¬ 
ste erreichbare Datei genommen! 


ATTRIB 

ATTRIB erlaubt das Ändern der Da¬ 
teiattribute ’Schreibschutz’ und 'Ar¬ 
chiv’. Die Zeichen ’ + ’ und stellen 
den Zustand der Attribute ’R’ und ’A’ 
dar und werden als Parameter dem 
Dateinamen vorangestellt. Die Ver¬ 
wendung von Jokern ist möglich, 
über die Option /S können zusätzlich 
noch Dateien in Unterverzeichnissen 
bearbeitet werden. 

Aufruf: 

ATTRIB [±R] [±A] dateiname [/S] 

Anmerkung: Das Attribut zum Verstecken von Dateien 
kann mittels A TTRIß nicht verändert werden. 


BACKUP 

Der Befehl BACKUP sichert die Da¬ 
teien eines Laufwerks oder eines oder 
mehrerer Unterverzeichnisse auf ein 
anderes Laufwerk. Mit ihm können 
beispielsweise Sicherheitskopien von 


ganzen Festplatten oder einzelnen Ver¬ 
zeichnissen gemacht werden. Zusätzli¬ 
che Optionen erlauben die Auswahl der 
gesicherten Dateien. /S bewirkt, daß 
auch Unterverzeichnisse gesichert 
werden, /M wählt nur Dateien aus, die 
nach der letzten Sicherung geändert 
wurden, mit Option /A werden geän¬ 
derte Dateien, die bereits gesichert 
wurden, nicht überschrieben. Die Op¬ 
tionen /D:datum und /T:zeit erlauben 
zusätzlich die Auswahl von Dateien 
nach Datum und Uhrzeit, mit /F wer¬ 
den nicht formatierte Disketten im 
Ziellaufwerk formatiert. 

Aufruf: 

BACKUP quelle ziel [/S] [/M] [/A] [/D:da- 
tum] [/T:zeit] [/F] 

Anmerkungen: Bei der Quelle kann es sich um ein komplet¬ 
tes Laufwerk oder auch nur um ein Unterverzcichnis han¬ 
deln. als Ziel ist nur die Angabe eines Diskettenlaufwerks 
erlaubt und sinnvoll. 


CHKDSK 

Mit CHKDSK wird ein Laufwerk auf 
die Korrektheit seiner logischen Struk¬ 
tur überprüft und Fehler eventuell kor¬ 
rigiert, wenn /F als Parameter überge¬ 
ben wird. Die Option /V veranlaßt die 
Anzeige der ausgeführten Operatio¬ 
nen, ohne Parameter wird das aktuelle 
Laufwerk überprüft. Wird statt eines 
Laufwerks eine Datei angegeben, zeigt 
CHKDSK die 'Zersplitterung’ der Da¬ 
tei an. 

Aufruf: 

CHKDSK [laufwerk I datei] [/F] [/V] 

Anmerkungen: Erkannt werden nur Fehler in der logischen 
Struktur der Verzeiclwisse. jedoch keine physikalischen Le¬ 
sefehler! Erkannte Fehler sind 'verlorene Cluster' ('lost 
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mittel für Assemblerprogrammierer 
und soll an dieser Stelle nicht näher 
besprochen werden. 

Aufruf: 

DEBUG [datei] [Optionen] 


DISKCOMP 

Mit DISKCOMP können zwei Dis¬ 
ketten auf ihre Übereinstimmung ge¬ 
prüft werden. Mit der Option /I kann 
festgelegt werden, daß nur eine Seite 
der Diskette, mit /8, daß nur acht Sek¬ 
toren pro Spur verglichen werden. 
Aufruf: 

DISKCOMP laufwerkl laufwerk2 [/l] [/8] 

Anmerkungen: Der Vergleich erfolgt anhand der physi¬ 
kalischen Sektoren, so daß der Vergleich nur dann sinn¬ 
voll ist, wenn es sich bei den Disketten um Ll-Kopien 
handelt, die mit DISKCOPY erstellt wurden. Weiterhin 
müssen die Disketten das gleiche Format besitzen, ein 
Vergleich einer 360-kByte-Disk mit einer 720-kByte-Disk 
ist nicht möglich. Steht nur ein Laufwerk zur Verfügung, 
wird dessen Name zweimal angegeben und die Diskette 
nach Aufforderung umgetauscht. Zum Vergleich einzel¬ 
ner Dateien oder Nicht-1:1-Kopien sind die Befehle 
COMP oder FC zu verwenden. 


DISKCOPY 

Mit DISKCOPY können l:l-Kopien 
von Disketten erstellt werden. Option 
/I legt fest, daß nur eine Seite der Dis¬ 
kette kopiert wird. 

Aufruf: 

DISKCOPY quelle ziel [/l] 

Anmerkungen: DISKCOPY funktioniert nur mit Disket¬ 
ten. Die Laufwerke fiir Quelle und Ziel können identisch 
sein; sie müssen es sein, wenn nur ein Laufwerk oder 
physikalisch unterschiedliche iMußverke zur Verßgung 
stehen. 


EDLIN 

Über diesen Zeileneditor aus der Soft¬ 
ware-Steinzeit sollen an dieser Stelle 
keine weiteren Worte verschwendet 
werden. Lassen wir die Toten ruhen! 

Aufruf: 

EDLIN dateiname 


EXE2BIN 

Das Programm EXE2BIN ist ein 
Hilfsmittel für Programmierer und 
soll an dieser Stelle nicht näher be¬ 
sprochen werden. 

Aufruf: 

EXE2BIN dateiname 


FASTOPEN (3.3) 

Dieser Befehl beschleunigt den Zu¬ 
griff auf Dateien, indem ihr Fundort 
zwischengespeichert wird. Es können 
auf vier Laufwerken jeweils zwischen 


zehn und 999 Dateien protokolliert 
werden. 

Aufruf: 

FASTOPEN laufwerkl=nnn 
[... Iaufwerk4=nnn] 

Anmerkungen: FASTOPF.N benötigt fiir jede Datei 40 Bytes 
RAM, also sparsam sein. Vorsicht hei der Verwendung von 
Festplartenoptimierem: Diese verändern die Fundorte, so 
daß das Protokoll von FASTOPF.N nicht mehr stimmt. Es 
besteht große Gefahr von Datenverlusten, wenn bei akti¬ 
viertem FASTOPEN nach einer Optimierung wird! 


FC 

FC ist ein leistungsfähiges Programm 
zum Vergleichen von Dateiinhalten. 
Prinzipiell gilt das für COMP gesagte, 
FC bietet jedoch noch zusätzliche Op¬ 
tionen. Bitte konsultieren Sie hierzu Ihr 
DOS-Handbuch... 

Aufruf: 

FC [Optionen] dateil datei2 


FDISK 

Dieses Programm wird nur zur Instal¬ 
lation einer Festplatte benötigt und ist 
für den Alltag unwichtig. Neulinge 
werden vor dem Aufruf des Pro¬ 
gramms gewarnt, da mit ihm Daten auf 
Festplatten schnell und effektiv ver¬ 
nichtet werden können! 

Aufruf: 

FDISK 


FORMAT 

Der Befehl FORMAT dient zum For¬ 
matieren eines Datenträgers. Das Stan¬ 
dardformat hängt vom jeweiligen Lauf¬ 
werk ab und wird bei Festplatten von 
der Hardware vorgegeben, bei Disket¬ 
ten kann mit zusätzlichen Parametern 
Einfluß auf das Format genommen 
werden. Mit /1 wird eine Diskette nur 
einseitig formatiert, /4 formatiert eine 
360-kByte-Disk in einem 1,2-MByte- 
Laufwerk, /8 formatiert eine Diskette 
mit acht Sektoren je Spur. Mit /T:n 
kann die Anzahl der Spuren und mit 
/N:n die Anzahl der Sektoren je Spur 
eingestellt werden, um beispielsweise 
eine 720-kByte-Disk in einem 1,44- 
MByte-Laufwerk zu formatieren (/T:80 
/N:9). /B reserviert auf der Diskette 
Platz für die Systemdateien, /S kopiert 
diese Dateien sofort, /V erlaubt die ab¬ 
schließende Eingabe eines Disketten¬ 
namens. 

Aufruf: 

FORMAT laufwerk [/l] [/4] [/8] [/T:n] 
[/N:n] [/B] [/S] [/V] 

Anmerkungen: Ein Laufverksbezeichner muß angegeben 
werden. Ab DOS 3.3 können auf High-Density-Disketten 
mit der Option /S auch weitere Dateien kopiert werden, so¬ 


fern sie in der Datei FORMA TS. TBL definiert werden. 
Die Formatierung von Disketten ist irreversibel, forma¬ 
tierte Festplatten können mit entsprechenden Utilities je¬ 
doch gerettet werden. 


GRAFTABL 

GRAFTABL lädt den Zeichensatz zur 
Ausgabe von Sonderzeichen (ASCII- 
Codes > 127) in den Grafikmodi. Es 
kann zusätzlich noch eine Codeseite 
ausgewählt werden (ab DOS 3.3). 

Aufruf: 

GRAFTABL [codeseite] 

Anmerkungen: Ältere Grafikkarten können bei Textaus¬ 
gaben im Grafikmodus nur die ASCII-Zeichen bis 127 
ausgeben. GRAFTABL lädt einen zusätzlichen Zeichen¬ 
satz für die übrigen Zeichen resident in den Speicher. 


GRAPHICS 

GRAPHICS ist das residente Hardco¬ 
py-Programm, mit dem auch von 
Grafikbildschirmen (nur CGA!) 
Hardcopies per SHIFT-PRTSCR ge¬ 
macht werden können. Als Parameter 
kann der Druckertyp (COLOR1, 
COLOR4, COLOR8. COMPACT, 
GRAPHICS und THERMAL) ange¬ 
geben werden, /R dient zum inver¬ 
tierten Ausdruck, /B erzeugt auf 
Farbdruckern einen farbigen Hinter¬ 
grund, /P = x gibt den Druckerport 
an, /LCD teilt mit, daß der LCD- 
Bildschirm des IBM-Laptop gedruckt 
wird. 

Aufruf: 

GRAPHICS [druckertyp] [/R] [/B] 

[P=ll2l3] [/LCD] 

Anmerkungen: Leistungsfähigere Hardware wie EGA. 
VGA oder 24-Nadel-Drucker werden nicht unterstützt, 
hier muß für Hardcopies auf andere Programme wie 
Pizazz Plus zurückgegriffen werden. (Hardcopies im 
Textmodus sind auch ohne GRAPHICS von jeder Karte 
möglich!) 


KEYB (3.3) 

KEYB ist der Treiber für die Tasta¬ 
tur. Als Parameter können ihm ein 
Ländercode für die Belegung einiger 
Tasten und eine Codeseite zur Dar¬ 
stellung der Sonderzeichen überge¬ 
ben werden. Der Ländercode ist eine 
Kombination aus zwei Buchstaben 
(GR für Deutschland, UK = England 
etc.). Die Datei KEYBOARD.SYS, 
aus der Informationen übernommen 
werden, muß entweder im gleichen 
Verzeichnis wie der Treiber stehen, 
im aktuellen Laufwerk oder als Para¬ 
meter übergeben werden. 

A ufruf: 

KEYB [ländercode[,[codeseite],[pfad]] 

Anmerkungen: Die Parameter müssen durch Kommata 
getrennt werden, z.B. KEYB GR..C: \ DOS \ KEY- 
BOARD.SYS. 
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KEYBGR 

KEYBGR ist der deutsche Tastatur¬ 
treiber bis DOS 3.2. 

A ufruf: 

KEYBGR 

Anmerkungen: Im Gegensatz zur Version 3.3 wird die 
Tastenbelegung nicht aus einer Systemdatei übernom¬ 
men. statt dessen existiert für jede Belegung ein separa¬ 
tes Programm <KEYBUK=englisch, KEYBUS=USA 
etc.). Auch dieser Treiber kann abgeschaltet werden. 


LABEL 

Mit LABEL kann einem Datenträger 
ein Name zugeordnet werden. Wer¬ 
den keine Parameter übergeben, so 
bezieht sich die Operation auf das ak¬ 
tuelle Laufwerk, und der Name wird 
erfragt. 

Aufruf: 

LABEL [laufwerk] [name] 


MODE 

MODE ist ein extrem vielseitiger Be¬ 
fehl, der zur Steuerung von Bild¬ 
schirm, paralleler und serieller 
Schnittstelle dient. Für den Bild¬ 
schirm lassen sich Zeilenbreite und 
Farbe einstellen, für den Parallelport 
Portnummer, Zeilenbreite und -ab- 
stand. für seriellen Schnittstellen die 
Parameter. Weiterhin können Ausga¬ 
ben von der parallelen Schnittstelle 
auf die serielle umgeleitet werden, ab 
Version 3.3 dient MODE auch zur 
Steuerung von Codeseiten. 

Aufruf: 

MODE 40 I 80 I BW40 I BW80 I 0040 I C080 I 
MONO (Bildschirm) 

MODE LPTx: länge,abstand (Druckerport) 
MODE COMx:baudrate,parität, datenbits, 
stopbits (Serieller Port) 

MODE LPTx:=C0Mx: (Umleitung) 


NLSFUNC (3.3) 

NLSFUNC erlaubt länderspezifische 
Einstellungen, wird jedoch nur selten 
benötigt und daher nicht weiter vor¬ 
gestellt. 

A ufruf: 

NLSFUNC [infodatei] 


PRINT 

PRINT ist ein Programm zum 
Drucken von Texten im Hintergrund, 
also während der Arbeit mit anderen 
Programmen. Beim ersten Aufruf in¬ 
stalliert sich PRINT im Speicher und 
druckt alle Dateien, die bei den näch¬ 
sten Aufrufen übergeben werden. Mit 
/D:xxxx kann das Ausgabegerät, also 


LPT1, COM2 etc., beim ersten Aufruf 
gewählt werden. /P fügt die übergebe¬ 
nen Dateien in die Warteliste ein, /T 
löscht die aktuelle Warteliste ab der an¬ 
gegebenen Datei, und /C bricht alle 
Druck Vorgänge ab. 

Aufruf: 

PRINT /D: xxxx 

PRINT datei [/?] [/T] [/C] 


RECOVER 

Mit RECOVER kann der Inhalt von be¬ 
schädigten Dateien oder Disketten teil¬ 
weise gerettet werden. Da die defekten 
Teile übersprungen werden, macht die 
Rettung nur bei Textdateien Sinn. Pro¬ 
gramme sind auch nach RECOVER 
nicht mehr funktionsfähig, Texte kön¬ 
nen jedoch von Hand ergänzt werden. 
Aufruf: 

RECOVER [laufwerk I dateiname] 


REPLACE 

Dieser Befehl dient zur Aktualisierung 
von Dateien oder Dateigruppen in ver¬ 
schiedenen Verzeichnissen. /A be¬ 
wirkt, daß im Ziel nicht existierende 
Dateien übertragen werden, /P erlaubt 
eine Rückfrage, /R ermöglicht das Er¬ 
setzen von Read-Only-Dateien, /S er¬ 
laubt das Bearbeiten von Unterver¬ 
zeichnissen. 

Aufruf: 

REPLACE von nach [/A] [/P] [/R] [/S] 

RESTORE 

Mit RESTORE werden von BACKUP 
erstellte Sicherheitskopien wieder auf 
Platte kopiert. /S dient zur Wiederher¬ 
stellung von Verzeichnissen, /P erlaubt 
Rückfragen. /A:datum und /B:datum 
wählen aus, ob nur Dateien nach oder 
vor dem angegebenen Datum restau¬ 
riert werden, analog die Optionen 
/E:zeit und /L:zeit für eine Uhrzeil. /M 
restauriert Dateien, die nach dem letz¬ 
ten Backup verändert wurden, /N nur 
die Dateien, die nicht mehr im Ziel 
vorhanden sind. 

Aufruf: 

RESTORE quelle ziel [Optionen] 

SELECT (3.3) 

SELECT dient zur Installation von 
DOS auf einem Datenträger, wobei 
länderspezifische Vorgaben gemacht 
werden können. Dieser Befehl soll 
nicht näher vorgestellt werden. 


SHARE 

Dieser Befehl wird nur in Netzwerken 
benötigt und soll nicht näher erläutert 
werden. 


SYS 

Mit SYS können die Systemdateien 
(IO.SYS, MSDOS.SYS) auf bereits 
formatierte Disketten übertragen 
werden. 

Aufruf: 

SYS laufwerk 

Anmerkungen: Die Datei COMMAND.COM muß von 
Hand kopiert werden! 

TREE 

TREE zeigt die Verzeichnisstruktur 
eines Datenträgers, entweder des ak¬ 
tuellen oder eines angegebenen Lauf¬ 
werks. Mit der Option /F werden zu 
der Baumstruktur noch die Dateina¬ 
men ausgegeben. 

Aufruf: 

TREE [laufwerk] [/F] 

XCOPY 

XCOPY ist die erweiterte Ausgabe 
des internen COPY-Befehls. Mit 
XCOPY können auch Unterverzeich¬ 
nisse kopiert werden (/S), auch wenn 
sie leer sind (/E). Darüber hinaus 
können Dateien nach dem Datum 
(/D:datum) oder dem Archiv-Attribut 
(/A bzw. /M) selektiert werden. Mit 
/P wird eine Sicherheitsabfrage er¬ 
laubt, /V schaltet die Überprüfung 
der Kopien ein. 

Aufruf: 

XCOPY von nach [/S] [/E] [/A] [/M] 
[/D:datum] [/P] [/V] 

Anmerkungen: XCOPY liest im Gegensatz zu COPY die 
Dateien zuerst in den Speicher, was beim Kopieren vieler 
kleiner Dateien zu höherer Geschwindigkeit führt. /E 
funktioniert nur bei Verwendung von /S. 



(Michael Anton/jf) 
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Star Writer 5.0 

Nichts für Ungeübte 


Textverarbeitung ist sicherlich die am häutigsten ver¬ 
breitete Computeranwendung im Privatbereich. Dem¬ 
entsprechend existiert eine unglaubliche Fülle von Text¬ 
verarbeitungssystemen auf dem Markt. Jede besticht 
durch besondere Extras und Features; jede hat Freunde 
und Feinde; jede scheint besonders auf speziellen Gebie¬ 
ten die Trümpfe in der Hand zu haben. 



Ein Blick auf die Benutzeroberfläche von Star Writer 5.0 deutet die Kom¬ 
plexität den Programms an 


Gerade aufgrund des zuletzt angespro¬ 
chenen Punktes rücken die Updates der 
bekanntesten Textverarbeitungen im¬ 
mer mehr an einen gemeinsamen Stan¬ 
dard heran. Dieser liegt freilich fernab 
jeglicher Notwendigkeit für “Otto 
Normalverbraucher“. Die neuen Ver¬ 
sionen von Word oder Star Writer zei¬ 
gen deutlich, wohin der Trend geht: in 
Richtung DTP. Wir haben den Star 
Writer näher unter die Lupe genom¬ 
men. Für einen Preis von nicht einmal 
1000 DM liegt das Programm im Rah¬ 
men des auch privat noch Erschwingli¬ 
chen. Was dem Käufer an Gegenwert 
geliefert wird, kann sich sehen lassen. 
Ein mit etwa 700 Seiten fast Bibeldi- 
mensionen erreichendes Handbuch 
deutet die Vielfalt der Funktionen des 
Programms an, und in der Tat: Mit der 
Version 5.0 bekommt der Benutzer ein 
Werk geliefert, das über die normale 
Textverarbeitung hinaus einen gehöri¬ 
gen DTP-Anteil enthält. Eine stich¬ 
wortartige Übersicht der Möglichkei¬ 
ten entnehmen Sie bitte der Info-Box. 

Zuviel des Guten? 

Wenn Sie als privater Schreiber mal 
eben einen Text verfassen oder einen 
Brief schreiben wollen, so werden Sie 
als unerfahrener Textverarbeiter nach 
dem Laden den berühmten Wald vor 
lauter Bäumen kaum bemerken. Es 
werden Ihnen Begriffe wie Bereichs¬ 
layout, DOS-Gateway, Makros und 
Redlining um die Ohren geschlagen, 
daß Ihnen schwindelig wird. Ohne in¬ 
tensives Einarbeiten läuft hier nichts. 
Dann aber, wenn Sie die Kunst des Er¬ 
stellens von verschiedenen Layouts be¬ 
herrschen, bietet Star Writer alle Mög¬ 
lichkeiten, einen vollkommen profes¬ 


sionell aussehenden Text auf das Pa¬ 
pier zu bringen. Wichtig ist die richtige 
Vorgehensweise. Was immer Sie auch 
schreiben wollen. Sie sollten sich über 
das spätere Aussehen bereits von vorn¬ 
herein klar sein. Dann wird das Layout 
bestimmt, der Text verfaßt, korrigiert 
und ausgedruckt. 

Gewöhnungsbedürftige 

Bedienung 

Das groß angelegte Konzept und die 
Vielfalt der gebotenen Möglichkeiten 
bedingen natürlich, daß ein solches 
Programm in immer wiederkehrenden 
Funktionen dynamische Module be¬ 
kommt, die nur den jeweiligen Gege¬ 
benheiten angepaßt werden. Daß da die 
Bedienerfreundlichkeit nicht immer 
die allerbeste ist, ist ein notwendiges 
Übel. Beispiel Daten einladen: Wenn 
Sie einen neuen Text bearbeiten wol¬ 
len, konsultieren Sie am besten den ei¬ 
gens für alle Dateioperationen vorgese¬ 
henen Dateimanager. Es handelt sich 
dabei quasi um ein selbständiges Pro¬ 
gramm, mit dein Sie alle Manipulatio¬ 
nen, Dateien betreffend, vornehmen 
können. Um nun aber die Textverar¬ 
beitung mit allen zur Verfügung ste¬ 
henden Arbeitserleichterungen nutzen 
zu können, ist es notwendig, sich in 
dieses Zusatzprogramm gründlich ein¬ 
zuarbeiten. Das gleiche gilt dann für 
die integrierte Datenbank, das Korrek¬ 
turprogramm oder den Dokumenten- 
manager. 

Es kann alles, wenn Sie können 

Mit Star Writer erhält der Käufer eine 
woh ldu rchdachte T ext verarbeitu ng, 


die keine Wünsche offenläßt, sofern 
der Benutzer weiß, wie seine Bedürf¬ 
nisse dem Programm mitgeteilt wer¬ 
den. Demjenigen, der wirklich nur 
dann und wann schriftliche Ergüsse zu 
Papier bringt, wird eine weniger lei¬ 
stungsstarke, dafür insgesamt über¬ 
sichtlichere Textverarbeitung bessere 
Dienste leisten als dieses pompöse 
Werk. 

Wer professionelles DTP betreiben 
will, wird auch nicht zu seiner vollsten 
Zufriedenheit bedient werden; dafür 
handelt es sich bei diesem Programm 
eben immer noch um eine Textverar¬ 
beitung. Alle anderen jedoch werden in 
Star Writer nach einer mehr oder weni¬ 
ger langen Einarbeitungsphase ein gu¬ 
tes Werkzeug zur Erstellung von Tex¬ 
ten jeglicher Art finden. 

(jf) 


Übersicht über die wichtigsten 
Funktionen von Star Writer 5.0 

— Datenbank 

— Taschenrechner 

— Dateimanager 

— Dokumentmanager 

— WYSIWYG-Darstellung 

— Grafikeinbindung 

— Seitenpreview 

— Spaltenblock 

— Kopf- und Fußnotenverwaltung 

— Korrekturprogramm 

— Registererstellung 

— Gliederungserstellung 

— komplexe Hilfsfunktion 

— MS-DOS-Schnittste/le 

— Mini-Tetris 
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Mit dem U-Boot in die Wüste 

Codename: Iceman 

Lange angekündigt, endlich zu haben: das neue Spiel von Sierra. Ob sich 
das Warten gelohnt hat, soll dieser Test an den Tag bringen. Wir haben uns 
ein Wochenende um die Ohren geschlagen; lesen Sie, was dabei heraus¬ 
gekommen ist. 


In seinen jüngsten Produkten versucht 
Sierra, das herkömmliche Adventure- 
Prinzip durch Einführung von Elemen¬ 
ten aus anderen Spielen zu erweitern. 
Hero’s Quest wurde teilweise als Rol¬ 
lenspiel ausgelegt, Colonel’s Bequest 
als interaktive Story. Das neueste Pro¬ 
dukt, Codename: Iceman, verbindet 
das gewohnte Adventure-Prinzip mit 
einer U-Boot-Simulation. Der Name 
Jim Walls, der auch für die Police 
Quests verantwortlich ist, verspricht 
packende und realistische Action. 


sen decodiert und kleine Reparaturen 
vorgenommen werden. Den Torpedo¬ 
raum sollte man bei der ersten Gele¬ 
genheit auf Vordermann bringen, da 
man sonst eine böse Überraschung er¬ 
lebt. Am Ziel angekommen, wird 
Johnny wieder zur Landratte und 
macht sich auf den Weg, um den Bot¬ 
schafter zu befreien - ebenfalls keine 
einfache Sache... 

Bewährte Technik 


track selbst ist jedoch keine Sensation. 
Kleine Verbesserungen sind in der Be¬ 
dienung vorgenommen worden. Die 
Figur muß jetzt nicht mehr von Hand 
an einen Gegenstand geführt werden, 
um mit ihm zu arbeiten, sondern begibt 
sich von selbst an die richtige Stelle. 
Das hämische “you can't do that from 
here“ gehört der Vergangenheit an. 
Auch liefert ein einfaches LOOK nun 
die Beschreibung der Objekte in Blick¬ 
richtung. Geblieben ist leider auch der 
schwache Parser und die mangelhafte 
Maussteuerung (Stichwort: alte Hüte). 
Dennoch sollte man gerade in Code¬ 
name: Iceman nicht auf die Maus ver¬ 
zichten, denn einige Kontrollen des U- 
Boots sind mit dieser besser zu bedie¬ 
nen. Auch ist sie praktisch, um den Na¬ 
men von Objekten zu erfahren, ohne 
gleich zum Wörterbuch greifen zu 
müssen. 

Alt, aber gut 


Herr Agent, es brennt! 

Zur Story: Die Weltlage ist zum Zer¬ 
reißen gespannt. Die Supermächte lie¬ 
gen im Clinch um ein kleines nordafri¬ 
kanisches Land mit immensen Ölvor¬ 
kommen. Dort wird zu allem Überfluß 
noch der amerikanische Botschafter 
von Terroristen entführt. Fingerspit¬ 
zengefühl ist notwendig, um den Di¬ 
plomaten zu befreien, ohne daß es zur 
großen Katastrophe kommt. Der dafür 
am besten geeignete Agent verbringt 
gerade seinen Urlaub auf Tahiti, als er 
zu diesem Auftrag abberufen wird. 
Nach einer Einsatzbesprechung im 
Pentagon wird Johnny Westland, so 
sein Name, nach Pearl Harbor und dort 
an Bord eines U-Boots geschickt. Die¬ 
ses soll ihn schnell und unauffällig 
Richtung Mittelmeer bringen, aber so 
einfach ist dies gar nicht. Zwar soll so 
ein U-Boot eine große Besatzung ha¬ 
ben. in diesem Fall jedoch nicht, so daß 
für Johnny (und den Spieler) jede Men¬ 
ge Arbeit angesagt sind. 

Dies beginnt schon bei der Steuerung 
des Bootes, bei der man selbst Hand 
anlegen muß. In der Anfangsphase 
steht der Kapitän noch mit guten Rat¬ 
schlägen zur Seite. Der fällt jedoch 
bald aus - dummerweise zu einem 
Zeitpunkt, als es in der Bering-Straße 
zu einer Konfrontation mit russischen 
Zerstörern kommt. Sitzt man einmal 
nicht am Ruder und vollbringt naviga- 
torische Meisterwerke, hat man den¬ 
noch einiges zu tun. Meldungen müs¬ 


Von der Technik her entspricht das 
Spiel dem Standard von Sierra — groß 
und gut. Eine Festplatte ist angesichts 
der neun Disketten dringend zu emp¬ 
fehlen, ebenso ein möglichst schneller 
Rechner, selbst auf einem 10-MHz-AT 
geraten komplexere Animationen noch 
ins Stocken. Die Grafik ist gut, kommt 
jedoch nur auf EGA oder VGA voll zur 
Geltung. Der VGA-Modus ist wie im¬ 
mer nur ein aufgepeppter EGA-Mo- 
dus. Wie lange Sierra auf diesem Gra¬ 
fikstandard noch Sitzenbleiben wird, ist 
nicht abzusehen. Es wäre eigentlich an 
der Zeit, dem Neuen gebührende Zeit 
zu widmen und sich nicht weitere Jahre 
mit alten Hüten zu schmücken. 

Zur musikalischen Untermalung wer¬ 
den die üblichen Soundkarten und 
Synthesizer unterstützt, der Sound¬ 


Die Story 1 ine ist zwar nicht ganz frei 
von Ungereimtheiten (zwei versenkte 
Schiffe und ein gesprengter Bohrturm 
passen nicht so ganz zum ansonsten 
vorgeschriebenen Fingerspitzenge¬ 
fühl), man kann damit jedoch leben. 
Codename: Iceman zieht den Spieler 
sofort in seinen Bann und läßt ihn nicht 
mehr los. Nur bei den Fahrt- und 
Kampfsequenzen kann es zu leichtem 
Frust kommen, da sie nicht ganz ein¬ 
fach sind und auch das Glück eine ge¬ 
wisse Rolle spielt. (Auf den ersten An¬ 
lauf schafft man sie jedenfalls selten.) 
Dennoch bietet Codename: Iceman 
spannende Unterhaltung durch eine 
gute Mischung aus Simulation, Action 
und Adventure sowie viel Spielwert für 
viel Geld. 

(Michael Anton/jf) 


Neue Story, alte 
Mängel, Trotzdem 
bietet Codename: 
Iceman gute Unter¬ 
haltung 
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Sim City 

Schaffe, schaffe, Häusle baue 

Das Peter-Prinzip der Bürokratie lautet: “Jeder steigt so lange auf, bis er 
den höchsten Grad seiner Inkompetenz erreicht hat.“ 

Wenn man dieses Gesetz auf die Städteplaner vieler unserer Städte bezieht, 
so findet man in den meisten Fällen Bestätigung: Verkehrsstaus, unglückli¬ 
che Sanierungen, Beton bis zu den Wolken und schlechte Luft aufgrund der 
miserablen Plazierung von stinkenden Firmenschornsteinen. 


Aufregen nützt da meist nicht viel. Die 
Verantwortlichen sind ohnehin begei¬ 
stert von ihren Taten, und die meisten 
anderen werden Sie mit den Worten 
“Meckern nutzt nichts, selber machen“ 
abblitzen lassen. Jetzt gehen Sie aber 
einmal ins hiesige Bauamt und zeigen 
den Planern, wie man es richtig macht: 
reine Utopie! Was bleibt, ist der Com¬ 
puter mit seinen ungeahnten Möglich¬ 
keiten. In diesem speziellen Fall emp¬ 
fehlen wir die Flucht in die fiktive 
Städleplanung mit Sim City. Stellen Sie 
also Ihren Computer an, setzen Sie die 
Gasmaske auf, und zeigen Sie, wie 
man eine atemreine, wohlstrukturierte 
Stadt aufbaut. 

Nach der problemlosen Installation 
meldet sich Sim City mit dem schlich¬ 
ten Hauptmenü. Sie können hier eine 
vorgegebene Situation einladen, ein al¬ 
tes Spiel fortsetzen oder neu beginnen. 
Danach gelangen Sie in die Spielfläche 
des Programms. Das Terrain, das Ih¬ 
nen zur Verfügung gestellt wird, er¬ 
stellt der Computer zufällig. Es besteht 
aus Wald-, Wasser- und Normalflä¬ 
chen. Nun ist es an Ihnen, aus den vor¬ 
gegebenen Gegebenheiten das Beste zu 
machen. 

Sie setzen nun nach Belieben Wohn¬ 
häuser, Incfustrieblocks und Geschäfts¬ 
zentren auf Ihre Spielfläche, worauf 
sich die Einwohner zum ersten, aber 
wahrlich nicht zum letzten Male be¬ 
schweren. Sie verlangen nach Straßen- 
und Eisenbahnnetzen. Hafen und Flug¬ 
platz, Grünflächen und Stromversor¬ 
gung. Über eine übersichtliche Icon- 
Leiste suchen Sie nach Entsprechen¬ 
dem und plazieren es so günstig wie 
möglich in Ihrer neuen Stadt. Umsonst 
ist allerdings der Tod, so daß das Bau¬ 
en der verschiedenen Maßnahmen den 
Sparstrumpf empfindlich berührt. Die¬ 
ser schrumpft und schrumpft und läßt 
sich nur durch entsprechende Steuer- 
maßnahmen vor dem gänzlichen Exitus 
retten. Wehe dem jedoch, der sich an¬ 


maßt, die Steuern zu erhöhen! Die Be¬ 
wohner haben nämlich überhaupt kein 
Verständnis für derartige Finanzbe¬ 
schaffungsmaßnahmen und suchen fol¬ 
gerichtig das Weite. Da heißt es dann, 
eine Gratwanderung zu bestehen. 

Maulende Bevölkerung 

Über die Auswirkung von Erfolgen 
und Mißgeschicken klären diverse Sta¬ 
tistiken auf, aus denen mit einiger 
Übung auch hervorragend abzulesen 
ist, welche Aktionen als nächstes 
durchzuführen sind, um das Wohlwol¬ 
len der Einwohner auf der eigenen Sei¬ 
te halten zu können. 

Das ist aber noch lange nicht alles: Um 
sich das Leben noch ein wenig schwe¬ 
rer zu machen, hat man die Möglich¬ 
keit. normale Katastrophen geschehen 
zu lassen. So veranlassen dann Sturm¬ 
nuten, Feuersbrünste und Wirbelstür¬ 
me den leidgeplagten Planer hier und 
da dazu, seine Stirn in Grübelfalten zu 
legen. 

Bewundernswert an Sim City sind die 
nahezu unendlichen Möglichkeiten, 
die dem Spieler zur Verfügung gestellt 
werden. Nie gelangt man in eine Pha¬ 
se, wo man die Beine hochlegen und 
den lieben Gott einen guten Mann sein 


lassen kann. Man wird ständig gefor¬ 
dert, und gerade da liegt der Reiz des 
Programms, zumal Sim City in sich 
stimmig ist und nie durch grobe Unge¬ 
reimtheiten auffällt. 

Und die Nachteile? 

Schwer zu sagen, wo sich bei diesem 
Programm der sprichwörtliche Haken 
befindet. Im spielerischen Bereich si¬ 
cherlich nicht. Da greift ein Rad ins an¬ 
dere, und das Programm strotzt nur so 
vor durchdachtem Konzept. Die übli¬ 
che Sicherheitsabfrage mittels Codeta¬ 
belle dagegen kann mitunter den Nerv 
des Spielers strapazieren, wird sie doch 
nach jedem Laden eines neuen Spiel¬ 
standes eingebracht; das hätte intelli¬ 
genter gelöst werden können. Anson¬ 
sten stellte sich beim Test die Frage, ob 
es sich bei diesem Programm eigent¬ 
lich noch um ein Spiel handelt oder ob 
es nicht vielmehr den Tatbestand des 
bewußten Abhängigmachens erfüllt; 
denn seien Sie sicher, dieses Pro¬ 
gramm macht süchtig! 

Das Spiel wird von der Firma Bomico 
vertrieben und kostet 99,95 DM. Es 
unterstützt alle gängigen Grafikkarten. 


Letzte Meldung: 

Gerade erreicht uns noch ein Zusatz¬ 
programm zu Sim City, der Terrain 
Editor. Mit ihm lassen sich die Start¬ 
bedingungen selber erstellen, was 
sonst vom Computer per Zufall erle¬ 
digt wird. Eine nette, aber im Hin¬ 
blick auf den Preis von 49,95 DM 
nicht notwendige Ergänzung zu Sim 
City. 


00 


Ein Programm, mit 
dem Bauämter trai¬ 
nieren können, bevor 
sie die Landschaft 
verplanen: Sim City 
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Harvard Graphics/ 
Draw Partner 


Die erweiterte Version 

An Harvard Graphics hätte der gute alte Churchill seine wahre Freude ge¬ 
habt, wäre er doch endlich in der Lage gewesen, seine Statistiken nach Be¬ 
lieben selber zu fälschen. Das professionelle Statistikpaket hat nun Zuwachs 
in Form eines Grafik-Kreationsprogramms bekommen. Das erschien uns 
Anlaß genug, uns mit dieser Neuerung näher zu beschäftigen. 


Harvard Graphics ist ein Grafikpro¬ 
gramm, mit dem Kreis-, Balken-, Text- 
und Börsengrafiken erstellt werden 
können. Diese sind als Ausdruck oder 
als Präsentation aufbereitbar. Im Pro¬ 
gramm war bis jetzt auch ein kleines 
Zeichenprogramm enthalten, das zur 
Verschönerung der erstellten Grafiken 
diente. Dazu gekommen ist, wie oben 
schon erwähnt, das Zeichen-Zusatz¬ 
programm. Es ist nun möglich, vorge¬ 
gebene Symbole nach eigenen Ideen zu 
erweitern oder ganz neue zu erstellen. 
Der Fantasie sind hierbei nur wenig 
Grenzen gesetzt. “Draw Partners“ ist 


Einige Features des Draw Partners in der Übersicht. 

0 File - Auswählen eines abgespeicherten Symbols 
(HG-Grafik) aus dem Verzeichnis. 

C 'Add - Unter diesem Punkt kann man ein Symbol mit 
einem Grundgerüst versehen, zum Beispiel Texte, 
geometrische Figuren oder Symbole hinzufügen. 

0 Move — Verschieben von Texten, Gruppen oder 
Symbolen. 

<> Size - Veränderung der Größen von benutzten Ob¬ 
jekten. 

=> Copy — Vervielfältigung bestimmter Teile aus dem 
Entwurf (dies gilt auchßir Gruppen). 

<> Group - Zusammenfassen von mehreren Symbolen 
oder Texten zu einer Gruppe, die später dann als sol¬ 
che verändert werden kann. 

<> Modify Drehen und Rotieren der Figuren oder 
Texte. 

0 View - Anschauen des Gesamtbilds oder der Teil¬ 
stücke aus dem aktuellen Symbol. 


ein von “Harvard Graphics“ völlig un¬ 
abhängiges Zusatzprogramm, das 
heißt, es wird separat installiert. Für 
die, die “Harvard Graphics“ bereits 
besitzen, ist dies ein positiver Aspekt, 
da sie problemlos nachrüsten können. 
Die mit “Draw Partners“ kreierten 
Symbole können abgespeichert und 
von “Harvard Graphics“ nach Bedarf 
aufgerufen werden. Nachteil: Es muß 
mit zwei Programmen gearbeitet wer¬ 
den. Dabei kann das Starten und Been¬ 
den der Programme schon etwas nervig 
werden. 

Ein großes Manko stellen das englische 
Handbuch und die im Programm ent¬ 
haltenen englischen Hilfestellungen für 
den in Fremdsprachen nicht firmen 
Anwender dar. 

Mit “Draw Partners“ ist dem kreativen 
Menschen ein schönes Werkzeug an 
die Hand gegeben. Besonders zu unter¬ 
streichen ist der Austausch der Daten 
zwischen “Harvard Graphics“ und 
“Draw Partners“. Sie können unter 
“Harvard Graphics“ Ihre erstellten 
Grafiken einladen und sie dann als 
Symbol abspeichern. Diese so gesi¬ 
cherten Grafiken lassen sich unter 
“Draw Partner“ problemlos modifizie¬ 
ren. Sie können Ihre Grafik mit den 
verschiedensten Zusätzen verschönern 


und dadurch aussagekräftiger gestal¬ 
ten. Effektvolle Veränderungen sind 
beispielsweise das uneingeschränkte 
Rotieren von Textpassagen oder das 
stufenweise Verschieben von beliebi¬ 
gen Symbolen, wobei Anfangs- und 
Zielposition derselben frei zu definie¬ 
ren sind. 

Statistik total 

Das gesamte Paket ist für jene, die sta¬ 
tistische Auswertungen von Daten per 
Präsentation oder Druckwerk an ande¬ 
re Personen weitergeben wollen, ein 
perfektes Werkzeug. Komfortable Be¬ 
dienung und übersichtlich angeordnete 
Menüsteuerung sorgen dafür, daß der 
Benutzer sich auf die wesentlichen 
Dinge seiner Auswertung konzentrie¬ 
ren kann, ohne ständig nach irgendwel¬ 
chen gewünschten Extras stundenlang 
im Handbuch herumzublättern. 

Negativ fiel eigentlich nur die zu große 
Aufschrift “NEUE VERSION“ auf der 
Außenhülle der Verpackung auf; denn 
am eigentlichen Programm hat sich 
beileibe nichts geändert. Der Zusatz 
könnte irreführend für so manchen 
Käufer sein, und dies ist ein Punkt, den 
man hätte bedenken sollen. 

Eine tatsächlich neu bearbeitete Ver¬ 
sion von Harvard Graphics soll Ende 
1990 erscheinen. Wichtigste Erweite¬ 
rung wird dann die Unterstützung von 
Scannern sein. 

(ke) 


Informationen zum Programm 

Name: Harvard Graphics 2.12 

Hersteller: Software Publishing Corporation 

Info: DA T, Ratingen 

A n m ■endung: Busineßgrafik 

l.aufiverk: Festplatte 

RAM: 512 kByte. 640 kByte empfohlen 

Preis: Hanard Graphics 1.425.- DM, Draw Partner 

365, - DM 

Handbücher: Harvard Graphics in Deutsch, Draw 
Partner in Englisch 


Preisgestaltung 

Rtiben-Gelee 



Serie 1 — Serie 2 


Acl<«‘b»u AS 


Das bekannte Harvard Graphics wurde nicht verändert... 



...dafür gesellt sich ein völlig unabhängiges Werkzeug dazu: Draw Partner 
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Bücher—i 



Bücherecke 

Referenz Handbuch DOS 


Autor: Judd Robbins 
Verlag: SYREX 
ISDN 3-88745-7S2-X 
Seiten: 1273 
Preis: 98. — DM 


Auf 1273 Seiten findet jeder — ob Fort¬ 
geschrittener oder Profi -alles, was er 
über DOS wissen muß. Geht es um die 
Organisation Ihrer Festplatte, den De- 
bug-Befehl oder einfach nur um ein 
DOS-Kommando, bei welchem man 
die genaue Befehlssyntax gerade nicht 
im Kopf hat: Man kann dieser Publika¬ 
tion aus dem Hause SYBEX so gut wie 
alles entnehmen. Ebenfalls integriert 
ist eine Erklärung von DOS 4.0 und 
LIM EMS 4.0. 

Der Aussage der Stiftung Warentest 
(Test, Heft 1/90) ’Ein rundherum gutes 
Nachschlagewerk für MS-DOS, das 
sein Geld wert ist’ können wir uns nur 
anschließen. 

Quickstart - Word für Windows 


Autor: Dr. Rasmond Wiseman 
Verlag: SYREX 
ISBN 3-88745- 731-5 
Seiten: 129 
Preis: 19.S0 DM 


Diese Veröffentlichung aus der Reihe 
’Quickstarf gewährleistet den Einstieg 
in Word in 20 Schritten. Von der In¬ 
stallation bis hin zur Arbeit mit Makros 


wird alles genau erklärt. Für den, der 
sich vorab erst einmal in Word einfüh¬ 
ren lassen will, ist dieses Buch wirklich 
empfehlenswert. 

PC-XT-AT Lexikon 


Autor: Wolf gang Wie nicke 
Vertag: Franzis 
ISBN 3-7723-5512-9 
Seiten: 536 
Preis: 58, - DM 


Alle Begriffe aus dem Computerbe- 
reich, die hin und wieder benötigt wer¬ 
den, kann man einfach nicht kennen. 
Wer jedoch des öfteren damit konfron¬ 
tiert wird, kann sich entweder jede 
Menge Bücher in sein Regal stellen, in 
denen wahrscheinlich auch nicht alles 
zu finden ist, oder er kann sich für die¬ 
se Veröffentlichung entscheiden. In le¬ 
xikalischer Form wird hier Begriff für 
Begriff verständlich erklärt. Viele Bei¬ 
spiele sowie eine Sammlung zahlrei¬ 
cher BASIC-Befehle machen dieses 
Buch nicht nur für den Einsteiger inter¬ 
essant. 

Das große Paintbrush IV Plus 


Buch zum PC 


■ Autor: Helmut Schirmer 


Verlag: Data Hecker 


ISBN 3-89011-320-6 

Seilen: 283 

Preis: 49. - DM 


Nicht nur Text, sondern auch Grafik 
läßt sich mit dem PC sehr gut verarbei¬ 
ten. Eines der vielen Programme, die 
ein Erstellen von Grafiken auf dem PC 
ermöglichen, ist Paintbrush. Eine nütz¬ 
liche Hilfe für die Arbeit mit diesem 
Programm bietet die Data Becker 
GmbH jetzt an. Tips und Kniffe, die 
das Arbeiten mit Paintbrush wesentlich 
vereinfachen, werden ebenso gegeben 
wie eine genaue Erklärung aller Paint- 
brush-Funktionen. 

Harvard Graphics mit 

Draw Partner 


Autor: Markus Hahner 
Verlag: Data Becker 
ISBN 3-89011-446-6 
Seiten: 366 
Preis: 29.80 DM 


Aus der Reihe 'Alles auf einen Blick’ 
gibt es wieder ein umfassendes Nach¬ 
schlagewerk. Thema ist diesmal das 
Programm Harvard Graphics zum Er¬ 
stellen von Geschäftsgrafiken, welches 
in der neuen Version mit Draw Partner 
als Zusatz ausgeliefert wird. Auch hier 
werden neben einer Befehlserklärung 
Tips und Tricks zum Arbeiten mit die¬ 
sem Programmpaket gegeben. 

Computer der Zukunft 


Autor: Redaktion des Time-Life- Verlages 

Vertag: Ttme-Life-Verlag 

ISBN: 90-6182-939-9 

Seiten: 128 

Preis: 45, - DM 


In der Reihe “Computer verstehen“ hat 
sich der Time-Life-Verlag in vorlie¬ 
gendem Band mit der Entwicklung der 
Computer der Zukunft auseinanderge¬ 
setzt. Beschrieben wird die Geschichte 
vom lernfähigen Rechner zum neuro¬ 
nalen Netzwerk, einem vom bitweise 
operierenden Rechner abgehobenem 
System, das sich hervorragend zur Ar¬ 
beit mit Künstlicher Intelligenz eignet. 
Die Aufmachung dieses Bandes ist in 
gewohnt hoher Qualität: verständliche 
Texte, Farbfotos und Grafiken von 
sehr hohem Niveau und ein Layout, 
das das Lesen zu einer wirklichen 
Freude macht. 

Für Computerprofis wird die Lektüre 
dieser eher populär als trocken-wissen¬ 
schaftlich aufgearbeiteten Materie 
nicht das große Aha-Erlebnis bringen, 
was die Qualität dieses Werkes aller¬ 
dings in keinster Weise schmälern soll. 

(rs/jO 
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Mit dem Einkommen kein Auskommen, wer kennt das nicht? Unsere Konto¬ 
führung für den CPC hilft, die Übersicht zu wahren 


»PC International« 8/9'90 
erhalten Sie ab: 



CPC 


Wer gute Unterhaltung liebt, der darf 
gespannt auf die neue Ausgabe war¬ 
ten, denn dort finden Sie ein völlig neu¬ 
es Denkspiel, das Ihre grauen Zellen 
auf Hochtouren bringt. 



Hot Plot, das neuartige Denkspiel für den CPC 


Wer unter chronischem Geldmangel 
leidet, ist selber schuld, so sagt man. 
Aber meistens liegt es daran, daß die 
Übersicht über das Bankkonto verlo¬ 
rengegangen ist. Dies muß nicht sein. 
Mit unserem Kontoführungsprogramm 
können alle Geldangelegenheiten 
überwacht werden. 

Wer Programmieren lernen will, der 
muß sehr oft mit hexadezimalen Zah¬ 
len hantieren, addieren oder auch Zah¬ 
len in andere Zahlensystemen umwan¬ 
deln. Dafür benötigt man noch ein 
zweites Programm, das die Rechenar¬ 
beit übernimmt. Aber wer will schon 
sein BASIC-Programm abspeichern, um 
das Umrechnungsprogramm zu starten? 


Eine ideale Hilfe wäre ein Programm, 
das im Hintergrund läuft und per Ta¬ 
stendruck aufgerufen werden kann. 
Das so etwas möglich ist, zeigt unsere 
Rechenhilfe, die bei der BASIC-Pro- 
grammierung jederzeit aufgerufen 
werden kann. 

Des weiteren warten wieder Tips und 
Tricks darauf, in Ihren CPC eingetippt 
zu werden. 

PCW 


Wieder einmal können wir Ihnen viele 
Tips und Tricks zu LocoScript anbieten. 
Im Beitrag erfahren Sie unter anderem, 
wie Sie den Bildschirm unter Loco¬ 
Script invertieren können. Im Artikel 
'Jumbo' stellen wir Ihnen eine Pro¬ 
grammierhilfe für Basic-Fans vor. In 
zahlreichen ASCII-Dateien wurden hier 
Erläuterungen zu allen Befehlen unter¬ 
gebracht. 

Wenn Sie sich ein Plakat für eine Demo 
oder einfach nur etwas anderes in einer 
anderen Schrift ausdrucken lassen 
wollen, so können Sie dies mit unse¬ 
rem Programm 'Banner Schrift' gerne 
tun. 

PC 


In der nächsten Ausgabe erwartet Sie 
neben den Fortsetzungen der Reihen 
"MS-DOS, die ersten Berührungen" 
und "Schaltstation PC" ein interessan¬ 
ter Vergleich der beiden Betriebssyste¬ 
me MS-DOS und DR-DOS. Wo speziell 
für Ihren Amstrad-PC die Vor- und 


Nachteile dieser Betriebssysteme lie¬ 
gen, erfahren Sie bei der Lektüre unse¬ 
res Artikels. 



Welche Art der Datenabspeicherung gibt es? Wir 
klären auf 


Mit dem Programm "XCD" lassen sich 
beliebige Sprünge in beliebige Unter¬ 
verzeichnisse ohne viel Schreibarbeit 
durchführen. Unser Utility bietet dar¬ 
über hinaus interessante Extras, die 
den Umgang mit Verzeichnissen auf 
der DOS-Ebene erheblich erleichtern. 

Das amerikanische Softwarehaus Sier¬ 
ra produziert und produziert und pro¬ 
duziert... Wir haben das neueste Pro¬ 
dukt "Conquests of Camelot" näher un¬ 
tersucht und berichten über unsere Er¬ 
fahrungen damit. 

Die bereits für die letzte Ausgabe ange¬ 
kündigten Reviews vom Memo und 
Datura, die aus aktuellen Gründen lei¬ 
der entfallen mußten, liefern wir Ihnen 
in der Ausgabe 8/9 der PC Amstrad In¬ 
ternational nach. 


DMV.2,53-68,119,120 


Dobbertin Elektronik.23 

G + L electronic.95 

Interest Verlag.Beihefter 


DIE INSERENTEN 


Kosmalla + Partner.27 

Kotulla.23 

Krebs electronic.97 

Schuster Electronic.91 


Strauß Elektronik.105 

Weber.95 

Weeske.25 
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DATABOX 


DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 

DATABOX 

enthält lauffähige Programme für Ihren Einsatz 

DATABOX 

lohnt sich auf jeden Fall - Monat für Monat 


PCW 8256/8512/9512 


Kfz-Kosten 

Haben Sie Interesse daran, endlich 
einmal zu erfahren, wie teuer Ihr Auto 
nun wirklich ist? Einen recht guten 
Überblick können Sie sich darüber mit 
unserem Programm verschaffen. 

Systemtuning 

Wir stellen Ihnen auf dieser DATABOX- 
Diskette die Bibliothek Grafik sowie 
eine kleine Demo dazu vor. 


Einzelbezugspreis für DATABOX: 

PCW - 3-Zoll-Diskette 


24,- DM 

Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 


Inland: 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
4.- DM 

Ausland: 

Einzelpreis 
zzgl. Versandkoslen 

24,- DM 
6,- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


Bonusprogramm 1 

Das erste Bonusprogramm ist seit län¬ 
gerer Zeit wieder ein Spiel. Es handelt 
sich hierbei um eine sehr gut gelunge¬ 
ne Umsetzung von Q-Bert. 

Bonusprogramm 2 

Als zweites Bonusprogramm liegt eine 
erweiterte Version des Xformat-Pro- 
gramms vor. Von Formaten im Bereich 
von 168 kByte bis hin zu 213 kByte ist 
hiermit alles möglich. 

Zahlungshinweise: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr. (Bei Lieferungen Ins Ausland ist Nachnahme nicht möglich.) 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 



















ist Macht. 

Neu im DMV-Verlag: Computer-Wissen. Ein Magazin, 
das Ihnen Wissen über Ihren PC vermittelt, das ändere nicht haben. 

Unsere Themen: Alles, was Ihnen hilft, den PC besser zu nutzen und zu 
verstehen. Mit DMV-Computer-Wissen steht Ihnen das gesamte Know-how der 
DMV-Redaktionen in leichtverständlicher Form zur Verfügung. 


Wissen 


Aus dem Inhalt: 

Programme: 

- Deutsche Fehlermeldungen in 
GW-BASIC 

- Datei- und Verzeichniswahl mit 
Cursortasten 

- BASIC-Programme automatisch 
strukturieren 

- Konvertierungsprogramm 
von GW nach Turbo 

Routinen: 

- Umfangreiche Berechnungs¬ 
funktionen 

- Konfiguration feststellen 

- Hardcopy programmgesteuert 

- Grafikroutinen 

- Mausroutinen mit Testprogramm 

Specials: 

- Kalenderberechnungen 

- Wahrscheinlichkeit und Statistik 

- Literaturverzeichnis zum 
Thema BASIC 

Und vieles anderes mehr: 

Insgesamt über 500 Funktionen! 

Damit Sie das Rad nicht ständig neu er¬ 
finden müssen, steht Ihnen im ersten 
Band von DMV-Computer-Wissen eine 
in Umfang und Vielfalt unvergleichli¬ 
che Routinensammlung für Ihre eige¬ 
nen Programme in GW-, Turbo- und 
Quick BASIC zur Verfügung. Alle Li- 
stings und Programme sind auch auf 
Diskette erhältlich. 



Super-Toolbox für 
eigene Programme 


BASIC-Routinensammiung 
mit über 500 Funktionen! 


Deutsche Fehlermeldungen 
zum ’Nachladen’ 


Programmkonverter 
GW- 0 Turbo BASIC 


’Call Interrupt’ 
in GW-BASIC 


AB SOFORT IM HANDEL 


DMV-Computer-Wissen Band 1 : Basic-Toolbox 18 , - DM* 

DMV-Computer-Wissen IDATABOX (2 stck. 51/4“ und 1 stck. 31/2“) je 35 , - DM* 

* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4, - DM 
bzw. für das Ausland 6, - DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege /PAAV 
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